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I7A40 --- DISK WRITE TESTS _ -P/N=8327671 EC=375222 PAGE 05 I7A4O --- DISK WRITE TESTS P/N=8327671 EC=375222 PAGE OSA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000026 9944+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 000007 1112 SEVEN EQU 7 
000027 9954#NI EOU 39 7 1 NO INTERRUPT EXPECTED E 000008 1113 EIGHT 2OU 8 
000028 996+CS EOU 40 8 8 CYCLE STATUS IN PROGRESS 000009 1114 NINE ate 9 
000029 997+CSA FOU 41 9 rm CYCLE STEAL AVAILABLE OOOO0A 1115 TEN EQU 10 
00002A 998+CE FQU 42 10 2 CYCLE STEAL a eaee INERRRUPT ERROR 00000B 1116 ELEVN EQU 11 11 
000028 999+ISBON EQU 43 11 1 ISB BITS ON 00000C 1117 TWELV EQU 12 12 
00002c 1000+NG FOU 44 12 8 TEST UNIT RE Ur NO GOOD 00000D 1118 THRIN EQU = 13 13 
00002D 1001+#IO0CC EQU 45 13 4 OIO CC ERROR OO0000F 1119 FIVIN EQU 15 15 
380938 reeastnce EU 913 # |  WnBRRUBHEC 330838 1133 Sas Boy 35 8 
+ TERRUPT CC ERROR 
100534 000080 1133 ONEDS FOU © 128 528 
+ COMMON BUFFER FOR PRINTING DATA 
002464 0000 1eeGes 900400 1135 ONBR E00 © 1034 1054 
A 8+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
002A66 0000 100S+$IOIN DC A (*- * sf O AND INTR CONDITION CODES 000800 1126 THWOK at 2048 2048 
002A68 0000 1010+$ISB DC A (*-* INTR STATUS BYTE & DEV ADRS 000C00 1127 THREK EQU 3072 3072 
OO2A6A 0000 1011+#LSTIO DC A (*-* Rpks OF LAST I/O + 4 BYTES 001000 1128 FOURK EQU 4096 4096 
002A6C 0000 1012+DEV1 DC A (*-% DEVICE DEPENDENT DATA FFFFFF 1130 #1 EQU -1 71 
OO2A6E 0000 1013+DEV2 DC A (*-% FFFFFE 1131 M2 EQU. <-2 -2 
002A70 0000 1014+DEV3 DC A (*-%* * FFFFFD 1132 M3 EQU)  -3 =3 
002A72 0000 1015+DEV4 pC A (*-* CS STATUS ERROR ISB & INTR CC FEFFEC 1133 M4 FOU -4 ~4 
OO2A6C 1016+SCTID EQU DEV1 READ ID BUFFER FOR IBIS § TERN VV QS MM a Be He Be he he He He Oe He He He Be Me Me Me ee Me Be ee Me Me he He eK he ee He ee HK eh ae Me he he eM oe he he ee He ae Me he he He He a ok ee 
OO2A74 1017+DCBUF FQU- * DCB BUFFER FOR LAST DCB USED 1430 * % 
OO2A74 0000 10184+DCB1 OD A (*-* LAST DCB TABLE, CONTROL WORD 1137 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE % 
002A76 0000 1019+DCB2 DC A (*-% LAST DCB TABLE, DEV DEP WORD 1138 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
002A78 0000 1020#DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 1139 * . 
O0O2A7A 0000 1021+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD VV 2 22 eo a a 2 eo ae he he ae ae he oe ik he ae 2 ae ae ic he ae a oe he 2 a fe ae a a ae ae at fe ae ae ae 2 a a a a eae fe ae ae ah a a ae ae ae ade ae ae ah ale fe ae ee ae 
002A7C 0000 1022+#DCB5 DC A (#-* LAST DCB TABLE, DEV DEP WORD 000000 1147 BSO EQU 0 
OO2A7E 0000 1023+DCB6 DC A (*-% LAST DCB TABLE, CHAIN ADRS 000001 1742 BSI = EQU 1 
Spans aoe 1024+ DCB? DC A a LAST DCB TABLE, BYTE COUNT Hyde Van Eee zou ; 
+D DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 
eee 1938¢8 q ; poongk {igo psu eu 
+CSBUF EQU) * CYCLE STEAL DATA BUFFER 
002A84 0000 1028+CSTL1 be A (*-* CS STATUS WD 0, PESIDUAL ADDRESS 000006 1147 BS6 EQU 6 
002A86 0000 10294#CSTL2 DC A (*-* cs STATUS WD 1, RESIDUAL COUNT 000007 1148 BST EQU 7 
002A88 0000 1030+CSTL3 DC A (*~* CS STATUS WD 2, RETRY CNT WD 1 000008 1149 BS8 EQU 8 
0O2A8A 0000 10314#CSTL4 DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 1150 BS9 EQU 9 
002A8C 0000 10324+CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 1151 BS10 EQU 10 
OO2A8E 0000 1033+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 00000B 1152 BS11 £EQU 11 
002890 0000 10344+CSTL7 DC A (*-* CS STATUS HD 6, LAST DCB ADDRESS 00000C 1153 BS12 EQU 12 
002492 0000 1035+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 1154 BS13  EQU 13 
002A94 0000 1036+CSTLO DC A (*-* CS STATUS WD 8, CURRENT HD/CYL OOO00E 1155 BS14 EQU 14 
002496 0000 1037+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR 00000F 1156 BS15 EU 15 
002498 0000 1038+CST11 DC A (*—* CS STATUS WD 16, HEAD/CYLINDER 1158 COPY T7AQODCB O7FEB78 
0O2A9A 0000 1039+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 1159 ** (T7AOODCB) 
002A9C 0000 1040+CST13 DC A (*-%* CS STATUS WD 12, AND 3 + WRAP a ThE 1160 * 
1041+* TVG 1 em em ae ee ee ea ee ae A a A A eK HH a a a a a ae a a ae ak ae a oe ak Ae a a 72 G/T 7 EH He a 
002A9E 0000 1042+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 1162 * 
002AA0 00000000 1043+$DATA DC 2A (*-* OPTIONAL DATA 1163 * DCB TABLES AND DC'S 
OO2AA4 0021 10444+$INTL DC X"0021! INTERRUPT LEVEL REQUESTED 1164 * 
OO2AA6 0000 10454+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI F165 RR HM HR He he Be Be He He Ae Me he a he Me Me he ake ah He He Me Be Ihe fe Me Be 3 Me ae ae Me Be Me Be he he 3h Bye Ke Me he he he he a ee he ee ae he he he he he eae he ee oe HK 
OO2AA8 00 1046+$DVID DC X*00! DEVICE ID 1166 * 
S33RRE 6688 1BugsevCRE BER AREY}DO) gprs Oe, Data nae Meee eee Seer 
+ - IBIS CYLINDER ADDRESS 
1049+% 002AB6 2008 1169 DGDCB DC x" 2008" DIAGNOSTIC DCB 
1050+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 002AB8 0000 1170 DC i =* FLAG / PHYSICAL peEtOne 
1051+%* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE QO2ZABA 0000 1171 DC — HEAD / CYLINDER#! 
1052+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. Q02ABC 0000 1172 DC 0000' NOT USED 
1053+%* OO2ABE 2B90 1173 DC i RSBA) RSB ADDRESS 
OO2AAE 4020 2A64 7A02 1054+T7A02 MVWI X'7A02', $TUID SET UP TEST UNIT ID Q002ACO 0000 1174 DC CHAINING ADDRESS 
0O2AB4 5700 1055+ BXS R7 RETURN TO MDI SUPVR OO2AC2 0100 1175 DC x010 : BYTE COUNT 
1057 COPY COMEQU 002AC4 0000 1176 DC A (*¥-*) DATA ADDRESS 
1O5 8 2% a KK aK ok oo KO IK kk ok ik kok i ak ko ak kak a ak ke ak ak sf ak ak 2c oi ok ak fe 2c ic akc a ak ae akc ak ake fc kc ak ac ak ofc ak ak afc 1177 * 
1059 * * 1178 ***k* RECALIBRATE DCB ¥**#***%% 
1060 * EQUATED NAMES FOR SUPPORTED SVC!S * 1179 * 
1061 * * 002AC6 0001 1180 CLDCB DC X'0001' RECALIBRATE DCB 
1062 363 OC CI Io ai aC i io ook iota oioioick doi ie tok teak ac aca ak afc ak ak ak ak 002AC8 00000000000000000 1181 DC TA (*¥-*) 
000000 1063 OUT EQU O OUT SVC 1182 * 
000001 1064 OUTIN EQU 1 OUTIN SVC 1183 ****k* WRITE SECTOR ID ***%**%% 
000002 1065 IDLE EQU 2 IDLE SVC 1184 * 
000003 1066 IDLE5 EQU 3 IDLE SVC - INDEPENDENT OF CPU TYPE OO2AD6 002D 1185 WSDCB DC X*O0O2D* WRITE SECTOR ID CNTL WORD 
000004 1067 CHNGE EQU 4 CHANGE LEVEL SVC OO2AD8 0000 1186 DC A (*-* FLAG / PHYSICAL SECTOR# 
000005 1068 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC OO2ZADA 0000 1187 DC A (*~ * HEAD / CYLINDER#'S 
000006 1069 EXIT EQU 6 EXIT SVC 0O2ADC 0000 1188 DC X*000 NOT USED 
000007 1070 TERM EQU 7 TERMINATE SVC OO2ADE 2B90 1189 DC A goBR) RSB_ ADDRESS 
000008 1071 RESET EQU- 8 RESET DEVICE SVC 002AE0 0000 1190 DC A CHAIN ADDRESS 
000009 1072 RID EQU 9 READ ID SVC OO2ZAE2 0QO004 1191 DC X*000 BYTE COUNT 
OOOOOA 1073 START EQU 10 START CYCLE STEAL SVC OO2ZAE4 2B84 1192 DC A (WRSID) ADDR OF SECTOR ID DATA 
00000B 1074 STCSS EQU 11 START CYCLE STEAL STATUS SVC 1193 * 
00000C 1075 PREP EQU 12 PREPARE DEVICE SVC 1194 ***** READ SECTOR ID DCB ¥******x* 
00000D 1076 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 1195 * 
QOO00ER 1077 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC OO2AE6 201C 1196 RSDCB DC xe 2oics READ SECTOR ID CNTL WORD 
OOOOOF 1078 RSTAT EOU 15 READ STATUS SVC OO2ZAE8 0000 1197 DC Li bs FLAG / PHYSICAL SECTOR# 
000010 1079 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC OO2ZAEA 0000 1198 DC 000 HEAD / CYLINDER#'S 
000011 1080 WRIT1 EQU) 17 WRITE WITH FUNCTION BIT 3 ON SVC OO2ZAEC 0000 1199 DC x 00008 NOT USED 
000012 1081 CTRL EQU 18 CONTROL SVC OO2AEE 2B90 1200 DC A roe) RSB ADDRESS 
000013 1082 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC OO2ZAFO 0000 1201 DC : CHAIN ADDRESS 
000014 1083 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC OO2ZAF2 0004 1202 DC 1000 BYTE COUNT FOR READ SECTOR ID 
000015 1084 HIO EOQU- 21 HALT ALL 1/0 OO2AF4 2A6C 1203 DC A (SCTID) SECTOR ID DATA ADDRESS 
000016 1085 REQSD FOU 22 REQUEST USE OF DCP DISK SVC 1204 * 
000017 1086 RELSD FQU 23 RELEASE USE OF DCP DISK SVC 1205 ***** SEEK DCB 9 *¥*¥##x%x% 
000018 1087 HALT EQU- 24 HALT SVC 1206 * 
000019 1088 ETOH EOU 25 EBCDIC TO HEX SVC (STRING OO2ZAF6 0000 1207 SKDCB DC x'*OO000! SEEK DCB CONTROL WORD 
OO001A 1089 HTOE OU 26 HEX TO EBCDIC SVC {STRING OO2AF8 0000 1208 DC X*0000! NOT USED 
00001B 1090 ATOH EQU 27 ASCII TO HEX SVC (STRING OO2ZAFA 0000 1209 DC eco HEAD / paLiNDeRt Ss 
00001C 1091 HTOA EQD 28 HEX TO ASCII SVC (STRING) OO2ZAFC 0000 1210 DC X*0Q000! NOT USE 
00001D 1092 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING OO2ZAFE 2890 1211 DC a (Roe) RSB ADDRESS 
OO001E 1093 ATOEF EQU 30 ASCII TO EBCDIC Svc (STRING 002B00 0000 1212 DC A ee CHAIN ADDRESS 
00001F 1094 READI EOU 31 READ DATA SETS FOR MDI/UTIL 002B02 0000 1213 DC X*0000! NOT USED 
000020 1095 WRITI FQU 32 WPITE DATA SETS FOR UTIL 002B04 0000 1214 DC xX*0000' NOT USED 
MOMMA TESS SSC£S SESS SCE SS SS SSL OSS SSCS. CLS SS SC SS SCLCSCSCC SC COLL CCCeOCSe SSCS SCS LS SL et 2 1215 * 
1098 * 2 1216 eet CYCLE STEAL STATUS DCB *****##* 
EQUATES USED BY TU'S AS CONSTANTS * 
1100 * 2 x 002B06 2000 1218 CSDCB DC X*2000! CONTROL WORD 
1101 34 a I OOO I IG AI I I I i ic aC ak ki ak ak a akc a 002B08 0000 1219 DC FeO" NOT USED 
OOOOUR 1102 PLUS EQU cter PLUS CHAR OO2BOA 0000 1220 DC Ftgor NOT USED 
000060 1103 MINUS FQU C!-! MINUS CHAR 002B0C 0000 1221 DC F‘'Q! NOT USED 
000000 1105 ZERO EOU 0 OO2BOE 0000 1222 DC F'Qr NOT USED 
000001 1106 ONE EOU 1 002B10 90000 1223 DC F'gt NOT USED 
000002 1107 TWO EOU 2 0O02B12 OO1A 1224 DC X'OOTA® 13 WORDS OF STATUS 
000003 1108 THREE EOU 3 002214 2A84 1225 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
000004 1109 FOUR FOU 4 1226 * 
000005 1110 FIVE EQU 5 1227 ***** WRITE DCB 3K 
000006 1111 SIX EQU 6 1228 * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002B16 0028 1229 WRDCB DC x1 0028" WRITE A DCR CNTL WO 1344 * EXECUTE INPUT & OUTPUT COMMANDS 
002B18 0000 1230 pc . Le P RECO RDE 2 RP 1345 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
OO2B1A 0000 1231 DC A coe HEAD / CYLIDNER#! 1346 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
002B1cC 0000 1232 Dc A (*-* SCAN / REPEAT eOuRT 1347 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
OO2B1E 2B90 1233 DC A (RSBA) BSB ADDRESS 1348 * SUPVR CALL. 
002B20 0000 1234 DC A (*-* CHAIN ADDRESS 1349 x o 
002B22 0100 1235 DC X'*01700! BYTE COUNT 1350 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
002B24 0000 1236 DC A (*-*) WRITE DATA ADDRESS 1351 * . 
1237 * 1352 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
1238 ***** VERIFY DCB OK KK KK toca ’ 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
1239 * 
002B26 0019 1240 VRDCB DC x*0019! CONTROL WORD 1355 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
002B28 0000 1241 pc A (*-* FLAG / RECORD# 1356 * ° 
002B2A 0000 1242 pc A (*-* HFAD / CYLINDER#!S 1357 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
002B2C 0000 1243 DC A (*-* SCAN / REPEAT COUNT 1358 * = 
OO2B2E 2890 1244 DC A (RSBA) RSB ADDRESS 1359 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
002B30 0000 1245 DC A (*-* CHAIN ADDRESS 1360 * . 
002B32 0000 1246 DC A (*-* BYTE COUNT 1361 * 3 BAL S$HWSEC, R6 WRITE SECTOR ID 
002B34 0000 1247 DC Fro: NOT USED 1362 * % 
1248 * 1363 * 4 BAL $DIAG,R6 DIAGNOSTIC 
1249 ***** READ DCB KKK OK 1364 * ° 
1250 * 1365 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
002B36 2018 1251 RDDCB DC X'2018! READ DCB CONTROL WORD 1366 * ° 
002B38 0000 1252 DC i FLAG / RECORD# 1367 * 6 BAL SSEEK,R6 SEEK 
002B3A 0000 1253 DC A a HEAD / CYLINDER#'S 1368 * ° 
002B3C 0000 1254 DC A (*-* SCAN / REPEAT COUNT 1369 * 7 BAL SRECL, R6 RECALIBRATE 
OO2B3E 2B90 1255 DC A (RSBA) RSB ADDRESS 1370 * s 
002B40 0000 1256 pc A (*-* CHAIN ADDRESS 1371 * 8 BAL SRDID,RO6 READ SECTOR ID 
002B42 0100 1257 DC x*017008 BYTE COUNT 1372 * . 
002B44 0000 1228 P DC A (*-*) READ DATA ADDRESS eee : 9 BAL SRD, R6 READ 
1260 ***KK WRITE SECTOR ID SKEWED KKK aaae : 10 BAL SRDVY,R6 READ VERIFY 
2 * - 
0O0O2B4U6 002F 1262 WKDCB DC X'OO2F! CONTROL WORD 1377 * 11. BAL SWRT,R6 WRITE 
002B48 0000 1263 DC A (*-* FLAG / PHYSICAL SECTOR# 1378 * 
OO2B4UA 0000 1264 pc A (*-* HEAD / CYLINDER#'S 1379 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 
O0O0O2B4C 0000 1265 pc Fro: NOT USED 1380 * 
OO2B4UE 2B90 1266 Dc A ese) RSB ADDRESS 1381 ok OK OK Ro ROO a iO Rok OK oR ok ma a ik ak kkk doko doko katate ge ake ak 
002B50 0000 1267 DC a te % CHAIN ADDRESS 1382 * 
002B52 Q00o4 1268 pc x' goo BYTE CCUNT 002BCO0 4020 2DD8 2AF6 1383 S$SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002B54 2B84 1269 : DC A (WRSTD) ADDR OF SECTOR ID DATA Q02BC6 507F 138 Pe J xIO 
1271 **** REAN SECTOR ID SKEWED eC 3K Kc OO2BC8 4020 2DD8 2AC6 1386 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
abies ae 1272 * OO2BCE 507B doe, " J XIO 
B D RKDCB DC X©20 1D" CONTROL WORD 
002B58 0000 1274 pc A FLAG / PHYSICAL SECTOR# OO2BDO0 4020 2DD8 2AE6 1389 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
002B5A 0000 1275 pc A +} HEAD / CYLINDER#'S OO2BD6 OBBB 1390 MVBI X*BB! *R3 SET BUFFER TO B'S 
002B5c 0000 1276 DC co ae NOT USED OO2BD8 4524 2A6C 1391 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
Q0O2B5E 2890 1277 DC A roe RSB ADDRESS OO2BDC 4724 0004 1392 MVWI 4,R7 SETUP BUFFER LENGTH 
002B60 0000 1278 Dc A CHAIN ADDRESS O0OO02BE0 2BAC 1393 FFN R3 A>) INIT READ SECTOR ID BUFFER 
O0OO2B62 0004 1279 DC xt es BYTE COUNT OO2BE2 4020 2AF4U 2A6C 1394 MVA sch D, RSDCB+14 DATA ADDR 
002B64 2A6C 1280 : DC A (SCTID) SECTOR ID DATA ADDRESS QO02BE8 506E Meee P J XIO 
1282 **** READ MULTIPLE SECTOR IDS eK KE OO2Z2BEA 4020 2DD8 2B66 1397 SRDIM MVA RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1283 * OO2BFO 4724 0084 1398 HVWI 132 R7 SET BUFFER LENGTH 
002B66 201C 1284 RMDCB DC X'201C" CONTROL WORD OO2BF4H 4524 2BA0 1399 MVA 1D06,R5 SET BOFFER ADDRESS 
002B68 0000 1285 DC i FLAG / PHYSICAL SECTOR# OO2BF8 OBBB 1400 MVBI X'*BB!,R3 SET CLEAR CHARACTERS 
O0OO2B6A 0000 1286 pc HEAD / CYLINDER#!S OO2BFA 2BAC 1401 FFN R3 (R5) CLEAR THE BUFFER 
002B6C 0000 1287 DC Bion NOT USED OO2BFC 5064 1402 J x16 
0O2B6E 2B90 1288 DC A (RSBA) RSB ADDRESS 1403 * 
002B70 0000 1289 pc A (*-* CHAIN ADDRESS OO2BFE OBFF 1404 $RD MVBI X'FF',R3 SETRD BUFFER TO ALL F*tS 
002B72 0084 1290 DC xfoosyer BYTE COUNT 002C00 6D08 2Bu4 1405 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 
002B74 2BA0 1291 DC A (IDOO) DATA AREA ADDRESS 002CO4 6F08 2B42 1406 MVW Soe? R7 SET UP BUFFER LENGTH 
1292 * 002C08 2BAC 1407 FFN R3, (R5 CLEAR READ BUFFER 
1293 x CONSTANTS AND DEFINED STORAGE LOCATIONS 002COA 4020 2DD8 2B36 1408 $RDS MVA RDB B, LODCB SET UP BLOCK FOR SVC CALL 
002B76 0000 1294 ZEROO DC x*00008 CONSTANT ZERO 002C10 505A 1409 J XI 
002B78 0001 1295 ONE1 DC X'0001! CONSTANT ONE 1410 * 
0O0O2B7A 0000 1296 RAY DC i baa | WRITE PARAMETER POINTER 002C12 4020 2DD8 2B26 1411 SRDVY NVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2B7C EB6D 1297 WDATA DC X"EB6D! WRITE DATA 002C 18 5056 1412 J XIO 
OO2B7E 6BDB 1298 DC X*6BDB! * 1413 * 
002B80 0000 1299 LGSEC DC xX¥*0000°8 LOGICAL SECTOR # O0O02C1A 4020 2DD8 2B16 1414 SWRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
002B82 0000 1300 PHYSC DC X'0000! CONVERTED PHYSICAL SEC # 002C20 5052 1415 J XIO 
O0OO02B84 0000 1301 WRSID DC X* OOOO! FLAG,SECTOR (WRT SECTOR ID DATA) 1416 * 
002B86 0000 1302 DC X'0000' HEAD "CYLINDER 002C22 4020 2DD8 2B56 1417 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2B88 FF34 1303 WSIDT DC X'FF34! WRITE SECTOR ID TEST DATA 002C28 OBBB 1418 MVBI X'BB!',R3 SET BUFFER TO B'S 
OO2B8A 5678 1304 DC X'*56788 002C2A 4524 2A6C 1419 NVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 
0O02B8C 0000 1305 SCTST DC X*0000! READ SECTOR ID TEST DATA BUFFER 002C2E 4724 0004 1420 MVWI = ght SETUP BUFFER LENGTH 
OO2B8E 0000 1306 DC x*'*0000'8 002C32 2BAC 1421 FFN £8 >}, INIT READ SECTOR ID BUFFER 
002B90 00000000000000000 1307 RSBA DC 6a (4) RESIDUAL STATUS BLOCK 002C34 4020 2B64 2A6C 1422 MVA Rp D, RKDCB+ 14 DATA ADDR 
002B9C 0000 1308 CTRO2 DC X*90000 COUNT 002C3A 5045 1423 J XIO 
OO2B9E 0000 1309 CTRO3 DC X'00008 COUNTER 1424 * 
OO2BA0 0000 1310 IDO0O DC Xx*O0000°8 ID ADDRESS TO BE SET BY USER 002C3C 4020 2DD8 2B46 1425 SWKEW MVA WKDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
OO2BA2 1010 1311 PDATA DC X¥*'*1010'8 WRITE DIAG WORD 1 DATA PATTERNS 002C42 4020 2B54 2B84 1426 MVA WRSID, WKDCB+ 14 DATA ADDR 
OO2BA4 5555 1312 DC X¥*5555! * 002C48 503E 1427 J XIO 
QOO2BA6 AAAA 1313 DC X'AAAA® * 1428 * 
OO2BA8 FFFF 1314 DC X'*FFFFt * OO2C4UA 4020 2DD8 2AD6 1429 SWSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1315 * 002C50 4020 2AE4 2B84 1430 MVA WRSID, HWSDCB+14 DATA ADDR 
1316 HR HH HA HR RH HR RC EI HC HC YG 77 EE IK I a ok 002C56 5037 1431 J XIO 
1317 * 1432 * 
1318 * SUBROUTINE 002C58 4020 2DD8 2AB6 1433 SDIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
1319 * 002C5E 5033 1434 J XIO 
1320 * PURPOSE 1435 * 
1321 * 002C60 6EOD 2A6A 1436 $WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF Ropes ee 
1322 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 002C64 OBFF 1437 MVBI 255, R3 CLEAR CYCLE STATUS BUFFE 
1323 * 002C66 4524 2A84 1438 NVA CSBOF,RS * TO ALL ONES * 
1324 * CALLING SEQUENCE OO2C6A OF16 1439 MVBI 22,R7 * 
1325 * 002C6C 2BAC 1440 FFN R3 AS * 
1326 * BAL CMPRW,R6 (NORMAL) OO2C6E 4524 2AT7U 1441 MVA pcb ¥ CLEAR DCB BUFFER TO ALL ONES 
1327 * 002C72 OF10 1442 MVBI 16,R os 
1328 * RETURN 002C74 2BAC 1443 FFN R3 {BR} me 
1329 * 002C76 4020 2A66 0708 1444 MVWI x16 08',SIOIN OVERLAY OLD CONDITION CODES 
1330 * BXS (R6,2) ~ NORMAL 002C7C CB25 2A68 1445 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
1331 * 002C80 4CA3 1446 TBTR R4, IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1332 * 002C82 4CA1 1447 TBTR R4Y,ER RESET ANY ERROR BEFORE I/0 COMMAND 
1333 OK KK KO KO ROKK FO OK Rk OK Ja dai rok Oko Rk aK ak lak akakoaiotok koko kook 002C84H 4&C62 1448 TBTS R4,XI SET EXPECTED INTR CONTROL BIT 
1334 * 002C86 “724 2DDu 1449 MVA oBLK, 7 SET UP CONTROL BLK FOR SUPR 
OO2BAA 4724 0004 1335 CMPRW MVWI R7 COMPARE BYTE COUNT O0O2C8A C020 2DDB 1450 MVB IOMOD+1,R0 GET IDCB FUNC/MODIFIER 
OO2BAE 4324 2PA6C 1336 MVA séTID, R3 ADDR OF RD SEC ID DATA OO2CB8E 402D 2DDA OOFO 1451 RBTWI X*OOFO!, IOMOD REMOVE FUNCTION FROM 'IOMOD!® 
002BB2 4524 2B84 1337 MVA WRSID,R5 ADDR OF WR SEC ID DATA 002C94 3022 1452 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO 
OO2BB6 2BA6 1338 CFNEN (R3), (R5) COMPARE ID DATA 002C96 F005 1453 CBI 5,R0 IDCB FUNCTION = 5? 
002BB8 68c0 0002 1339 E R6 5) BCH IF WRITF ID DATA OK 002C98 1003 1454 JE $WRT1 YES - ISSUE ‘SVC WRIT1° 
OO2BBC 68D2 0000 1340 B R {* COMPARE ERROR OO02C9A 6010 1455 SVC WRITO ISSUE WRITE DPC *&X! OP 
T3934 2D BRR KR KEE RE OOO RIK III ROK kok kok ok kook ack 002C9C 6802 2D20 1456 RB XIO8-4 GO WAIT FOR THE INTERRUPT 
1343 * 002CAO 6011 1457 SWRT1 SVC WRIT1 ISSUE WRITE DPC "5X! OP 
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: B XIO8-4 GO WAIT FOR THE INTERRUPT 
$DGWR MVA  WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
i B XIODG ISSUE START CS DIAG CMD 
$DGRD MVA  RDDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
MVW  RDDCB412,R7 GET NO. OF BYTES TO CLEAR 
MVW  RDDCB+14,R5 ADDR OF READ BUFFER 
MVBI X'FF®,R3 CLEBR TO F'S 
FFN  R3, (R5) x 
B XIODG ISSUE START CS DIAG CMD 
COPY T7AXEQ O9MART78 
PRINT OFF 
TTAXEQ 
3 2 Fe 2 2 a ak ae he 2 a i 3 a i a a a 2c he 2h 2 2c 2 ie i 2 2 ie 2k 2c a 2k a he ok ok ok ok ok ek eek kK KK KIO TUL I 6K * 
SUB-ROUTINE 
EXECUTE INPUT AND OUTPUT COMMANDS 
PURPOSE 
TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 


S SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 


SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
THE I/O COMMAND. 

SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
ISSUED BY THIS SUBROUTINE. 

CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 


RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
MYSTERY INTERRUPT (HT) CONTROL BIT IS SET. 

MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "SVC START'. 
WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
STARTS TO DETERMINE A LOST INTERRUPT. 


EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 

CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 

CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 

CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 

CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 

CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
ISSUED BY THIS SUBROUTINE. 
CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 

CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
COUNT IT AND SET UP THE PROPER FRROR MESSAGE TO BE PRINTED. 


CALLING SEQUENCE 
THIS ROUTINE HAS THE FOLLOWING ENTRIES: 


1 
xf 
TBTS (R 
B R 
HK HK IK KK aK ke aK KH Ke 


5 

8 

ER) SET ON ERROR CONTROL BIT 
{+ 'NO INTERRUPT* 


6 
FEO ICO IO IO Ro Gk I tok tok ito 0 3 FER 7 6 * 


--> BAL XxIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
--> BAL  XI01 MOD PARM PRELOADED IN 'romope 
--5 BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
--S BAL  XIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
: AND DOES NOT POST INTERRUPT STATUS) 
RETURN CONTROL 
BXS R6, 2) RETURN TO USER NO ERROR 
OR B x RETURN AND RETRY ON ERROR 
re FSP SSS SSS SS SLES SESS SS SSL SESS SSE LS SSS SSS SSS SSSLSSLSSS SSE SS SSS SSL SSL SS 22 2 2 2 3 
+XIO MVWZ ZIOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
a J XI01 CS I/O'S ARE NOT RETRIED 
+ 
+XIODG MVWI X*000D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
to J XIO1 GO TO CS OPS 
+ 
+ TBTR (R4,CE RESET CS STATUS INTER ERROR INDICAT. 
+ TBTS (R&.CS SET 'CYCLE STEAL STATUS" IN PROGRESS 
+#XIOCS MVA SpcB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
+ MVWI X*OOOF', TOMOD SET CYCLE STEAL MODIFIER 
+ TBT gRa Cc IS CS IN PROGRESS, ERROR CONDITION 
+ JON I02 * YES, BYPASS SAVING I/O ADRS 
+XIO1 MVW  R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
+ MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
+ MVW  TODCB,R5 * AND THE FROM ADRS, ALONG WITH 
+ MVBI 26,R7 * THE NUMBER OF MOVES 
+ MVFN SBD) ¢ (P3) MOVE 1 STATUS WORD AND ADJUST 
+ MVBI 255,R CLEAR CYCLE STATUS BUFFER 
+ MVA  CSBUF,RS * TO ALL ONES * 
+ MVBI 26,R7 
+ FFN R3 4R5) * 
+ MVWI xX'6708",SIOIN OVERLAY OLD CONDITION CODES 
t MVWZ $ISB,R ZERO OUT OLD ISB VALUE 
+ 
+ TBTR (R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
+XIO2 TBTR (R4LIN CLEAR INTERRUPT RECEIVED CNTL BIT 
+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
+ TBTS (RU; XT) SET EXPECTED INTR CONTROL BIT 
a SVC TART CALL SUPVR FOR I/0 COMMAND 
+ 
+ TBTR (24, NT) IS AN INTR EXPECTED 
+ N R6, 2) * NO, RETURN TO USER 
+ 
+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
+ MVWI O,RS SET UP WORK REG FOR "LOST INTR* 
+XIO8 TBTR (Ra IN) HAS INTERRUPT BREEN RECEIVED 
+ JON TocK * YES, CHECK IF ALL WAS SATISFACTORY 
+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
+* SUPVR WILL RETURN HERE 
+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
+* SUPVR WILL RETURN HERE 
+ AWI R ADVANCE TIME OUT COUNT 
+ INZ 0 BCH IF TIME OUT NOT REACHED 
+ 
+ 
+ 
+ 
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P/N=8327671 EC=375222 PAGE O7A 


STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


8+* SUBROUTINE 
+* 


SVC EXIT RETURN TO USER VIA SUPVR 
SOIC RIGO III GIO I GIG IR iO IO foi gai i 4 6 oe a ak ok 


KHHHKRHKHH 


213 
2139 
2140 +4 I/O EXECUTE ERROR HANDLING ROUTINE 
2142+* PURPOSE 
2143+% 
2144+% THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
2105+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
2146 +s SUPERVISOR AND IT WAS NOT ACCEPTED. 
+ 
2148+ CALLING SEQUENCE 
+ 
2150+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
2152+* RETURN CONTROL 
2153+* 
2154+ % B (R6) * RETURN TO USERS ERROR HANDLER 
Steg ee FPS SSS PSS STS SSL SSL SSS SSS SS SSCS SSS SLC SCSSS LSS S£S&SSS SSS SPL Ss £3 
2157+* 
2158+* CC O= DEVICE NOT ATTACHED 
2159+* FOR 1= DEVICE BUSY 
2160+* I/0 2= DEVICE BUSY AFTER RESET 
2161+* 3= COMMAND REJECT 
2162+* 4= INTERVENTION REQUIRED 
2163+* S= INTERFACE DATA CHECK 
216U+* 6= CONTROLLER BUSY 
2165+4 7= I/O COMMAND EXCEPTED 
+ 
2167+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
2168+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
2169+ MVB R3,$I0IN * PUT IN LOG OUT AREA 
2170+ B (RO) * RETURN TO USER ERROR HANDLER 
217 D ERK RK HK KK KK OK KK 2 ee a a ee ee 2 a a 2 a he a a a oR a a 2 2 a tc oe ak ak ie cok ok kk kak kK TA PR 7 6* * 
2173+% I 
17+ SUB-ROUTINE 
+ 
176+% ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* 
+ 
17.84% PURPOSE 
+ 
180+# THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR 
1814+ OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE 
1824+* EXPECTED CODE. 
183+* 
18+ CALLING SEQUENCE 
+ 
186+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT 
+ 
1 * RETURN CONTROL 
1 
1 
1 
1 cc O= CONTROLLER END ISB O= ADD STATUS 
1 FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT 
1 INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH 
1 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK 
1984+% G= ATTENTION INTERRUPT 4= STG DATA CK 
1994* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS 
200+* 6= ATTENTION 7 EXCEPTION INTR 6= PROTRCT CK 
2 * 7= ATTENTION 7 DEVICE END INTR J= I-FACE DATA 
INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
SRL 13,R3 POSITION INDICATORS IN R3 
MVA OPTN1,R4 SET UP BASE ADRS 
TET (R4 c§) IS CS IN PROGRESS 
JOFF INTES * NO 
TBTS (RG CE) TURN ON CYCLE STEAL INTER ERROR 
MVW  R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 
4B RS DEVA+1 * AND THE COND CODE 
INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND 
JOFF INTET BCH IF NOT EXPECTED 
CBI 4,R3 TS THIS AN *ATTENTION' INTR 
JE INTR1 * YES, BCH TO END INTR SEQUENCE 
INTET TBTS (R4 ER) SET ERROR ON I/O COMMAND CNTL BIT 
THE ERROR INTERRUPT USES THE SAME 
ENDING SEQUENCE AS THE NORMAL INTR 
EPFL SS SSS SESS SSS SST SSS SSS SSS SSS SSS SSeS SCL SCS SOS PSEC L + ese tf KX kKKKPTLADRT6 
SOUBROUTINE 
OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* 
PURPOSE 


TO CHECK THE INTERRUPT AND CONTINUE THE TEST 

CALLING SEQUENCE 
SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED 
THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE 
AFTER THE SPECTAL PART HAS BEEN COMPLETED AND THE 
COMMON SECTION IS HANDLED HERE. 

RETURN CONTROL 
SVC EXIT RETURN TO USER VIA SUPVR 


SIO II IC IOI IO OR OIG iO i i at go Rok kk 
INTOK chaos R3 COPY STATUS ANY LEVEL INTO R3 


KHEKEHHEHHKHHHHHHHHHK EHH 
Ht ad ed Bred ed ed et ed ad ed ed ed et ed rt dd td eed ed et ed tt Hd et et td dd ed et et et HH St EH HH HHH HHH HH HH HH He HH HH HH HH HS 
ad cond ad oad send end Sd sd Sl snd ead ead ad nd ead nd ad nd nd ad nd end ad dad nd ond nd nd end nd cen) nd Sd nnd dd nd nd Sd nd nd nd nd end snd end nd ed end ed ad nd ad a add ad Sd Sd send sd nd Send Sn) ad nd nd nd end nd ed end nd dl nd nd Sd 


NNNMNNDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDNNNNNNNDNDD 


NNNMNNNNNNNNNNNNNNDNNNDNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
WH OW DOYDAUE WN aU DAINMN EWN BOW OYIOUONE WN) BO DOYDNUE WN tO DNINNEWN ROU DOU WN) OW 


FEE EEE EEE EEE HEHEHE HEHEHE EEE EEE EERE HEEE EEE EEE HEHEHE EERE HEHE EEE EEE HEHE ET 


NANI SEER RE SSS SWWWWWWWWWWHDNDNNDNDDND a aed ad a at od od et etd OOO OOOO OO OUWOWWU OVW HMO 


RL 13,R3 POSITION INDICATORS IN R3 

MVA OPTN1,R4 SET UP BASE ADRS 
INTR1 TBTS Ra, i) SET INTERRUPT RECEIVED 

TBT RY’CS IS 'CS IN PROGRESS’ ON 

JON NTR? * YES, BCH AROUND UPDATE 

MVB R3,$IOIN+1 SAVE £NTERRUPTING CC CODE 

MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS 
INTR2 EQU * 
* CPCL RS CURRENT LEVEL COPIED BY DCP 

SLL 4,R5 POSITION INTR LEVEL AND PUT 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0O02D80 0501 2254+ ABI 1,R5 * IN 'I* BIT IL 2371+* --> B SERRS SET ‘'NG* BIT AND CONVERT DATA TO LOG 
002D82 CD24 2AA4 2255+ CW stnri, R5 IS THIS THE CORRECT INTR LEVEL IL 2372+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
002D86 1002 2256+ JE TR3 * YES, GO EXIT THIS LEVEL IL 2373+* 
002D88 4C66 2257+ TBTS {Ra SLE) SET TTR LEVEL ERROR CONTROL BIT IL 2374+* RETURN CONTROL 
OO2D8A 4C61 2258+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 2375+* 

QO2D8C 4CA2 2259+INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED IL 2376+* B TURTN* RETURN TO MDI 
OO2D8E 1204 2260+ JON wth * YES, EXIT CFF THIS INTR LEVEL IL 2377+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
002D90 4cC60 2261+ TBIS (R4,MT) * NO, SET MYSTERY INTR CONTROL BIT IL 2378+* 
002D92 F304 2262+ CBI R3 ATTENTION INTERRUPT? IL ZIIIt EERESTEIESELELEEL EE ERLERERSERERSA TALES ESET ERESESERERA EES SERESHED ESE SES 
002D94 1001 2263+ JE TAtTRX YES IL 0O02E1C 4020 1818 8000 2380+$ERRS MVWI X'8000!, TUSTATUS SET ON "NO GOOD! STATUS BIT 
002D96 4C6C 2264+ TBTS R4, NG) ERROR, UNEXPECTED INTERRUPT IL OO02E22 4724 2FEC 2381+ MVA HEBLK ,RI GET ADRS OF CONTROL BLOCK 
002D98 6006 2265+INTRX SVC X EXIT THIS LEVFL VIA SUPVR TO PGM IL OO2E26 601A 2382+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
226 Tt RRR ERR HK EEK KIO RIOR kK KO OF EBT 6 ** O002E28 4020 188E 4040 2383+ MVWI X*"4040*, TOWORK+116 
2268+* OO2Z2E2E 4020 1890 4040 2384+ MVWI X*4O40', TUWORK4+118 
2269+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 0O02E34 4020 1892 4040 2385+ MVWI X*4Q4U0t, TUWORK+120 
2270+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN OO2ZE3A ODO4 2386+$PRNT MVBI 4,R5 
2271+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. OO2Z2E3C 4324 181A 2387+ MVA TOWORK R3 SET UP BUFFER STORAGE 
2272+* OO2E40 6BOD 2FE4 2388+ MVW R3,BUFPT 
2273+ OO2ZE44 4124 2ECO 2389+ MVA_ LINE1,R1 
QOO2D9A 4CAY4 2274+XIOCK TBIR RY, XE) WAS AN ERROR EXPECTED OO2Z2E48 OFOY 2390+ MVBI 4,R7 
002D9C 6ACO 0002 2275+ BN RO +2) * YES, EXIT THIS ROUTINE QOO2E4A OQOEOS8 2391+ MVBI 8,R6 
OO2DAQ 4CA8 2276+ TBIR R4,CS) WAS AUTO CS IN PROGRESS QOO2ZE4C 2B24 2392+MVBUF MVFN f83)- (R1) 
OO2DA2 1006 2277+ JOFF TOEV * NO CONTE NUE CHECKING OO2ZE4E OFOY 2393+ MVBI gk 
OO2DA4 4C2A 2278+ TBI 1a CE) Is aS rh AN ERR CONDITION 002E50 OA4O 2394+ MVBI x'4o! que 
OO2DA6 1002 2279+ JOFF TOCO eS 002E52 C258 2395+ MVB R2 get Ve 
002DA8 68D2 0000 2280+ B R6) * cs EkRO 002E54 BEFB 2396+ Jct MVBUF,R6 
OO2DAC 4C69 2281+XIOCO TBTS R4,CSA) TURN ON cs STATS AVAIL FLAG 002E56 OEO08 2397+ MVBI 8,R6 
OO2DAE 5601 2282+ BXS R6,2 GO TO US 002E58 7921 002C 2398+ AWL ah R41 
O0O2DBO 4C21 2283+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON QO02E5C BDF7 2399+ JCT MVBUF RS 
O0OO02DB2 100D 2284+ JOFF Iocx * NO, EXIT THIS ROUTINE OO2ZE5E 4020 1802 FIFO 2400+ MVWI PIDMSG10 PID+2 
2285+* 00O2E64 4020 19B8 2FEA 2401+ MVA PAKETU,@DCADD1 
Q0O0O2DB4 C520 2A67 2286+ MVB SIOIN+1,R5 GET LAST INTR CC CODE OO2E6A 4020 19BA 2FE6 2402+ MVA DC2PT @DCADD2 
0O02DB8 F502 2287+ CBI 2,R5 Is THIS Cc=2 002E70 402C 19C4 0080 2403+ OWI BITO080 SUPSTAT 
OO2DBA 1003 2288+ JE xtoco YES OO2E76 4324 2A64 2404+ MVA STUID R3 SET UP BUFFER STORAGE 
OO2DBC F506 2289+ CBI 6,R5 IS THIS CC=6 QOO2Z2E7A O6F13 18BA 2405+ BAL TUMSGWER*, R7 GO TO MESSAGE WRITER 
O0OO2DBE 68D1 0000 2290+ BNE (Re) * * NO, BCH TO ERROR HANDLER 24064+* 
002DC2 C520 2A68 2291+XIOCQ MVB ISB,R5 GET fast ISB DATA BYTE AND IF CS QOO2ZE7E 240 7+S5CONX Eeu * 
002DC6 6A00 2CD4 2292+ BN xtoc$-4 * AVAILABLE, GO AND GET IT OO2ZE7E C720 19D0 2408+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
QOO02DCA 68D2 0000 2293+ B R6) * ERROR 002E82 6013 2409+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
0O02DCE CB25 2A62 22944+XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS OO2E84 6812 2AA6 2410+ B TURTN* RETURN TO MDI SUPERVISOR 
002DD2 5601 2295+ BXS (R6, 2$ RETURN TO USER VIA REG 6 2411+* 
2296+* 002E88 0009 2412+BEGIN DC A (0009 NUMBER OF LINES TO PRINT 
2297+* I/O PARAMETER LIST OO02Z2E8A 0008 2413+ DC A (0008 LINE LENGTH = 8 CHAR 
2298+* OO2ZE8C 5C5C4O0CIC2DED9E3 2414+ DC C'** ABORT! 
0O02DD4 19D0 2299+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OO02E94 0028 2415+ DC A (0040) LINE LENGTH = 40 CHAR 
0O02DD6 2D38 2300+ DC A XTOER) ERROR ROUTINE ADRS O0OO2E96 E3BE4C9OC4KLOCODE6CID 2416+ DC C*TUID IOIN ISB INST SECT ID DATA CSCC ! 
O0O02DD8 0000 2301+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR QOO2ZEBE 0028 2417+ DC A (0040) LINE LENGTH = 4O CHAR 
OO2DDA 0000 2302+IOMOD DC A +* MODIFIER OOZ2ECO 4O4OKOKO4SO4SONORO4 24184+LINE1 DC ct ' 
Q0O2DDC Q000 2303+ DC A (*¥-* ADRS OF LAST SVC CALL OO2EE8 0028 2419+ DC A (0040) LINE LENGTH = 4O CHAR 
OO2DDE 0000 2304+IORSP DC A (*¥-* SECOND WORD OF LAST IDCB OO2ZEEA C3D5SE3D340CK4C3C2F 2420+ DC C'*CNTL DCB1 DCB2 DCB3 DCB4 CHAD BYCT ADRS ! 
2305+* 002F12 0028 2421+ DC A (0040) LINE LENGTH = 40 CHAR 
2306+* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS OO2FI4 4OeOKOGO4OKOLOYOY 24224+LINE2 DC ct 
2307+* 0O02F3C 0028 2423+ DC A (0040) LINE LENGTH = 40 CHAR 
OO2DEO 19D0 2308+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS OO2F3E C3E2Z60FO4OC3E260F 2424+ DC C*CS-0 CS~1 CS-2 CS-3 CS-4& CS-5 CS-6 CS~7 
OO2DE2 2D68 2309+ DC A (INTOK INTERRUPT OK RETURN ADRS OO0O2F66 0028 2425+ DC A (0040) LINE LENGTH = 40 CHAR 
OO2DE4 2D44 2310+ DC A (INTER INTERRUPT ERROR ADRS OO2ZF68 Y4O4OKOKOFONOHOUO4 2426+4+LINE3 DC c' ¢ 
OO02DE6 0003 2311+INTCC DC xX'O0003!8 INTERRUPT CODE EXPECTED 002F90 0028 2427+ DC A (0040) LINE LENGTH = 40 CHAR 
2313+ ER RK KK RK KEK RK KK KR KK KIO IR OI IIR I IK Ro RK Ka tok 1 TM AY 7 6% * Q0O02F92 C3E260F840C3E260F 2428+ DC C'*CS-8 CS-9 CS-A CS-B CS=-C ' 
2314+* QOO2FBA 0028 2429+ DC A (0040) LINE LENGTH = 4O CHAR 
Fes SUBROUTINE OO2FBC 4O4O4OEO4O4O4O4OY Soe ernes DC ct ' 
+ + 
2317+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE OO2FE4 0000 2432+BUFPT DC A Beak 
2318+* OO2FE6 2E88 2433+DC2PT DC A (BEGIN) 
2319+* PURPOSE O0O02FE8 0101 24344FIXTU X*O101! 
2320+* OO2FEA 0101 2435+FAKETU DC X*0101! 
2321+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND OOF1FO 2436+PIDMSG10 EQU X'*FIFO! 
2322+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 2437+BITO080 EQU xX'0080* 
2323+* TO INTERRUPT. 2438+* 
23244+* 2439+4+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
2325+* CALLING SEQUENCE 2440+* 
2326+* OO2FEC OO3A 244 144+HEBLK DC S) NUMBER OF BYTES TO CONVERT 
2327+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: OO2FEE 2A64 2442+ DC ot aA FROM ADRS 
2328+* OO2FFO 181A 2443+ DC foe ) AND THE TO ADRS 
2329+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 2444 COPY 0O7FEB78 
2330+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 2445 TTA06 TUIT 
2331+* 24 U G+ ROO IO III IORI ke do 06 PEB7 6* * 
2332+* RETURN CONTROL 244 7+* 
2333+* 2448+* TEST UNIT 
2334+* BXs R6, 2) RETURN TO USER VIA REG 6 IF OKAY 24494 
pes OR B R6{ * IF THE DEVICE COULD NOT BE CONNECTED Ne ae ISSUE CYCLE STEAL COMMANDS 
2337 + RR RIOR OIA RIOR IO I III IO III RO RIOR I a i ok ate ak ok 2452+* PURPOSE 
OO2DE8 OFO06 2338+5CONC MVBI 6,R7 NOMBER OF BYTE TO CLEAR 2453+% 
OO2DEA OQBOO 2339+ MVBI 0O,R3 * AND THE DATA TO USE 24544+%* TO RECALIBRATE, SEEK TO SPECIFIED CYLINDER, READ SECTOR ID, 
OO2DEC 4524 2A6C 2340+ MVA DEVI R5 * ALONG WITH THE ADRS TO USE 2455+* READ DIAG WORD 1, AND READ VERIFY. 
OO2DFO 2BAC 2341+ FFN R3 R5) x 2456+% 
OO0O2DF2 CB25 2A62 2342+ MVWZ Opt 3,83 CLEAR OLD CONTROLS FOR NEW ROUTINE 2457+* CALLING SEQUENCE 
OO2DF6 4724 2DE0 2343+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 2458+ 
OO2DFA 6014 2344+ SVC CICE * CONNECT IT TO THIS DEVICE 24594+%* MDI=$TUXX,T7A06,XX,XXXX,XX,PKNG=4, PARM=XXXX 
OO2DFC 6AD0 0000 2345+ BN (R6) * ERROR RETURN TO USER 2460+* 
2346+* 24614+* TURESULS ass O- 7 ...-- SENSE BYTE (STATUS } 
Q0O2E0O0 8828 2AA4 2DD8 2347+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 2462+* . QO - 15 ..... TRACK ID (H Gra thS fo mae aur 1 
0O0O2E06 4724 2DD4 2348+ MVA IOBLK,R7 SET R7? TO CONTROL BLOCK TO PREPARE 2463+* . 1G) ST vee wae CYCLE eaeae enka 
OOZEOA 4020 2A66 0708 2349+ MVWI X'0708', $IOIN phi TTL TEE CONDITION CODE STORAGE 2464+* 32 = GT cweee CYCLE STEA WORD 
002E10 CB25 2A68 2350+ MVWZ SISB,R3 AND CLEAR OLD ISB VALUE 2465+* - 8S = 63 weeee CYCLE STEAL STATUS WORD 11 
OO2E14 6E0OD 2A6A 2351+ MVW R6 L§TIO SET UP ADDRESS THAT STARTED LAST I/0 2466+* - 69 = 79 weses CYCLE STEAL STATUS WORD 12 
002E18 600C 2352+ SVC PREP * AND CALL ON SUPVR 2467+ 
OO2ZE1A 5601 2353+ XS (R6, 2) RETURN TO USER 2468+* RETURN CONTROL 
0955 42 IOI IO IGG IORI I iG do iE 40K 10K0 6 APR 64 * 2469+% 
2356+* 24U70+* B TURTN* RETURN TO MDI SUPERVISOR 
2357+* SUBROUTINE 2471+* 
235B8+* 267 24 RIOR OR OR dom igOR I io aK I RK doko 
2359+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS OO2FF2 6FOD 2AA6 Z2473+T7A06 MVW R7,TURTN SAVE RETURN ADDRESS 
2360+* OO2FF6 4020 2A64 TA06 2474+ MVWI X*7A068 STUID SAVE TU ID FOR DISPLAY 
2361+* PURPOSE OO2FFC 4424 2A5E 2475+ MVA OPTN1, b, SET UP POINTER ADRS IN R4& 
2362+* 003000 6E03 2DE8 2476+ BAL SCONC,R CLEAR DEV DEP STG AND CONNECT I/0 BL 
2363+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 003004 2E1C 2477+ DC A (SERR$) ERROR ADRS FOR INVALID PREP 
2364+* SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 2478+* 
2365+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 003006 4C64 2479 TBTS $R5 XE) SET EXPECTED ERROR CNTL BIT ON 
2366+* 003008 403F 189A 0001 2480 WI 10601 , TUPARM1* WANT TO RECALIBRATE FILE? 
2367+* CALLING SEQUENCE OO300E 1805 2481 JNE CHK1 NO - CHECK FOR NEXT OP 
2368+* 003010 6E03 2BC8 2482 BAL SRECL, R6 RECALIBRATE FILE 
2369+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 003014 2E1C 2483 DC I * 
2370+4+* 003016 6802 30B6 2484 B SNSTS BRANCH TO READ/STORE SENSE BYTE 























I7A40O --- DISK WRITE TESTS P/N=8327671 EC=375222 PAGE 09 I7A40O --- DISK WRITE TESTS P/N=8327671 EC=375222 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
24u85 * 00314C 6803 32EC 2600 BAL TWOSC,R6 FIND FIVE GOOD CONSECUTIVE SECTORS 
00301A 40O3F 189A 0000 2486 CHK1 CWI X*'0000',TUPARM1* IS A SEEK QPERATION TO BE PERFORMED? 003150 4A04 2601 /TBT Oe uf CHECK IF ID CORRECT 
003020 180A 2487 JNE CHK2 NO - GO ISSUE READ SECTOR ID OP 003152 1002 2602 SOFF NxHD1 OK CONTINUE 
003022 c825 2AF6 2488 MVWZ SKDCB,RO LOAD SEEK CNTL WD IN DCB 003154 4a44 2603 TBTS See 4) SET INCORRECT ID 
003026 8838 189C 2AFA 2489 MVW TUPARH2*,SKDCB+4 LOAD HD/CYL NUMBERS IN SEEK DCB 003156 5029 2604 J 7471 GET STATUS 
9030 2¢ 6E03 2BC0 2490 BAL $SEEK, R6 SEEK TO SPECIFIED CYL 003158 4224 18C8 2605 NXHD1 MVA TURESUL SETUP ADDR OF TU RESULTS BUFF IN R2 
03030 2F1C 74914 pc A (SERRS) * 00315C 8828 341E 2B18 2606 MVW RCDNO, ae LOAD STARTING RECORD# IN WRITE DCB 
003032 6802 30B6 2492 B SNSTS BRANCH TO READ/STORE SENSE BYTE 003162 8828 2AFA 2B1A 2607 MVW SKDCB4+4, WRDCB+4 LOAD HEAD/CYLINDER#'S IN WRITE DCB 
34093 * 003168 8828 2AFA 2B2A 2608 MVW SKDCBt4, VRDCB+4 LOAD HEAD/CYLINDER#'S IN VERIFY DCB 
003036 403F 189A 201C 2494 CHK2 CWI X'201C!,TUPARM1* WANT TO READ SECTOR ID? 00316E 6E03 2Ci1A 2609 BAL ae WRITE 5 RECORDS OF DATA 
00303C 181D 2495 JNE  CHK3 NO - GO ISSUE READ SECTOR ID OP 003172 2EIC 2610 DC R (SEARS) ABORT TEST IF ERROR 
00303E 4020 2AR6 201C 2496 MVWI X¥ 20 1Ct ¢ RSDCB LOAD READ SECTOR ID CNTL WD 003174 4CA1 2611 TBIR fed ER) WAS THERE AN INTERRUPT ERROR? 
003044 4020 2AF2 0004 2497 MVWI 4,RSDCB+12 LOAD BYTE CNT TO READ ONE ID 003176 1002 2612 JOFF NO CONTINUE TEST 
00304A 4020 2AE8 0000 2498 MVWI 0O,RSDCB+t+2 LOAD PHYSC# ZERO IN READ ID DCB 003178 4A4O 2613 TBTS (ie re SET WRITE ERROR 
003050 6803 2BDO0 2499 RDDID BAL $RDID, R6 READ SECTOR ID 00317A 5017 2614 J GET STATUS 
003054 2E1C 2500 DC A(SERR * 00317C 8828 2B18 2B28 2615 NXHD2 MVW WRDCB+2,VRDCBt2 LOAD RECORD# IN PD VERIFY DCB 
003056 402B 2A6C F700 9501 TWI X'F700',SCTID FLAG = 00 OR O04? 003182 6E03 2C12 2616 BAL SRDVY, RO VERIFY 5 RECORDS OF DATA 
00305C 1009 2502 JOFF VRID YES - LOAD TRACK ID IN 'TURESULS! 003186 2E1C 2617 DC A (SERRS) ABORT TEST IF ERROR 
00305E 4029 2AE8 0001 2503 AWI 1,RSDCB+2 INCREMENT PHYSC# TO READ NEXT ID 003188 4CA1 2618 TBIR i 4, ER) WAS THERE AN INTERRUPT ERROR? 
003064 4O2F 2AE8 0021 2504 cw1 33, RSDCBt+2 HAVE ALL IDS BEEN CHECKED? 00318A 1002 2619 JOFF XHD3 NO CONTINUE TEST 
00306A 6800 30B6 2505 BE SNSTS YES - SAVE STATUS, RETURN TO MDI 00318C 4A43 2620 TBTS Ee 3) SET READ VERIFY ERROR 
00306E SOFO 5506 5 RDDID 00318E 50O0D 2621 J 7A 71 GET STAT 
003070 8828 2A6E 18C8 2507 VRID MVW SCTID+2, TURESUL MOVE TRACK ID TO TU RESULTS BUFF 003190 402B 341E 0020 2622 NXHD3 TWI X'0020',RCDNO HAVE 2ND DATA RECORDS BEEN TESTED? 
003076 SO1F 2508 J SNSTS GO GET CS STATUS 003196 1204 2623 JON NXHD4& YES GOTO TEST NEXT HEAD 
003078 403F 189 00 et i EEE aitte ese SOee ges get Ncube GO CHECE. DATA REC Ree. NDS 
A CHK3 CWI X¥'0011', TUPARM1* WANT TO RD VERIFY REC? (AUTO SK EN TA RECORDS 
00307EF 180C 2511 JNE CHKY - NO - GO ISSUE READ ere aon 1 OP ) 0031A0 402E 33F2 0001 2626 NXHD4Y SWI 1,HDCNT HAVE ALL MOVEABLE HEADS BEEN TESTED? 
003080 4020 2B26 0011 2512 MVWI xX'0011',VRDCB LOAD RD VERIFY CNTL WD (AUTO SK EN) OO371A6 11C9 2627 JP NXTHD NO - SELECT NEXT HEAD FOR WRITE 
003086 8838 189C 2B2A 2513 MVW  TUPARM2*,VRDCB+4 LOAD HEAD/CYL#'S IN DCB 0031A8 5010 2628 J XTAO7 GET STATUS 
00308C C825 2B28 2514 MVWZ VRDCB+2 ko SETUP PHYSICAL SECTOR# 0 IN DCB 0031AA 6EO3 2CD8 2629 X7A71 BAL XIOCS,R6 GO READ STATUS 
003090 6£803 2C12 2515 BAL RDVY,RO READ VERIFY RECORD QOO31AE 2E1C 2630 DC A (SERR$) ABORT TEST IF ERPOR 
003094 21C 3516 Dc i (SERRS) 0031B0 402B 2A8C 0008 2631 TWI X'0008',CSTL5 WAS THERE A CYCLE STEAL STAUS ERROR? 
003096 SOOF 9517 J GO GET CS STATUS 0031B6 6A00 2E1C 2632 BON SERR$F YES ~- ABORT TEST 
sa daeak caee- sage Goa 2518 * 0031BA 4028 2A8c 0001 2633 TWI K70001",.CSTLS INTERFACE ERROR? 
B CHK4 MVWI X'2088',RDDCB LOAD READ DIAG WORD 1 DCB CNTL WD S_~ CHECK FOR PARITY ERROR 
00309F 4020 2B42 0002 2520 MVWI 2,RDDCBt12 LOAD BYTE CNT TO READ DIAG WD 1 0031C2 402B 2A8E 0080 2635 TWI X'0080',CSTL6 STATUS = /80? 
0OO30A4 4020 2B44 33EC 2521 MVA RGBUF, RDDCBt14 SETUP ADDRESS RDBUF IN DCB 0031C8 120B 2636 JON PRTY PARITY ERROR 
OO30AA 6EF03 2BFE 2522 BAL $RD R6 READ DIAG WORD 1 0031CA 9028 2A8C 18CA 2637 X7AO7 MVD CSTLS, TURESUL+#2 SAVE CSS WORDS 4 12, AND 13 
OO30AE 2E1C 2523 pc A (SERRS) ABORT TEST IF OIO ERROR 0031D0 9028 2A9A 18CE 2638 MVD CST12, TURESUL+6 * IN TURESULTS bupben 
0030B0 8828 33EC 18C8 2524 MVW RGBUF, TURESUL MOVE DATA IN WD 1 TO TURESULS RUF 0031D6 9028 2A6C 18D2 2639 MVD SCTID, TURESUL+10 SAVE SECTOR ID IN TU RESULTS BUFFER 
0030B6 6803 2CD8 2525 SNSTS' BAL XIOCS, R6 GET CYCLE STEAL STATUS 2640 TXIT 
OO30BA 2E1C 2526 DC A (SERRS) ABORT TEST IF ERROR 0031DC 6802 2E7E 2641+ B SCONX RETURN TO MDI CONTROLLER 
0030BC 403B 189A 2000 2527 TWI X*2000',TUPARM1* WAS A READ OP JUST EXECUTED? 26 U2 + KR I GOK IG ii io tok lok lok ok aioli iio stoi tok tok kok tek cae ak 
0030C2 1205 2528 JON X7A06 YES - MOVE CS STATUS WDS TO TU BF 0031EO0 4A41 2643 PRTY TBTS {ee 1) BUS PAPITY ERROR 
0030C4 8028 2A8F 18C8 2529 MVB  CSTL6+1,TURESUL MOVE SENSE (STATUS) IN 'TURESUL' QOO31E2 5SOF3 2644 J 7A67 SETUP STATUS IN TU RESULTS BUFFER 
0030CA C025 18C9 2530 MVBZ TURESUL+1,R0 SET BYTE TO ZERO OO31E4 4AU42 2645 PCERR TBTS (R2 2) INTERFACE ERROR 
0OO30CE 9028 2A8C 18CA 2531 X7A06 MVD CSTLS5, TURESUL+2 MOVE, CS STATUS WORDS 0031E6 402B 2A9C 0020 2646 TWI 10620',cCST13 BUS PARITY CHECK? 
0030D4 9028 2A9A 18CE 2532 MVD CST12, TURESUL +6 11,12 TO 'TURESULS! OO31EC 12F9 2647 JON PRTY YES ~ SET PARITY ERROR BIT ON 
3533 TXIT nemhont TO MDI 0031RE SOED 2648 J X7TAO7 SETUP STATUS IN TU RESULTS BUFFER 
OO30DA 6802 2E7E 2534+ SCONX RETURN TO MDI CONTROLLER 2650 FFP SS SS SS SL SL SSS SSS LS SSS SSL ES SESE SSS SSS SSS SSS SPSL SSO SSCS Ste SSL + eS Ss tS ft 
D5 35 FH KH KK RK a a a oi 2K 2 ae 2 he 2K aK a 2k fe ee afc 2h cc a ai ae i a A oc fe a 2 2K a i i oC a 2K i eC Re 2 KK eK eo ok 2651 * 
2537 COPY T7AO07 O7FERB78 2652 * SUBROUTINE 
2538 T7A07 TUIT 2653 * 
a al a Seee : FILE CONFIGURATION 
2540+ 
gules TEST UNIT Seeg 4 PURPOSE 
+ 
2343+% MOVEABLE HEADS READ/WRITE TEST 1/09/79 $638 . TO GET FILE CONFIGURATION AND SET UP INDICATORS ACCORDINGLY. 
2545+* PURPOSE 2660 * CALLING SEQUENCE 
25 46+* 2661 * 
Z547+* TO VERIFY THE READ/WRITE CAPABILITY OF THE MOVEABLE HEADS ees : BAL CNFIG,R6 GET FILE CONFIGURATION 
+ 
2549+* CALLING SEQUENCE 2664 * RETURN 
2550+4+* 2665 * 
25514+* GET FILE CONFIGURATION 2666 * B (CNFGX+2) RETURN TO CALLER 
2552+* AFTER FACH HEAD SELECTION, READ AND VERIFY SECTOR ID. 2667 * 
2553+* WRITE 5S RECORDS OF DATA/HEAD ON CYLINDER 359. QE 6B A AK HK KK RK RK I HE a a 2 Ee a a 2 a a Ck ic 2 2h 2k 2 ie 2k a ck 2 ae ai 2h 2k ok a a atc ae ak aie ec oc kk 2 Kk 
25544+% READ/STORE/CHECK SENSE AFTER EACH WRITE. 2669 * 
2555+* READ VERIFY AFTER EACH PATTERN AND READ/STORE/CHECK SENSE. 0031FO 6E0D 3242 2670 CNFIG MVW R6,CNFGX+2 SAVE RETURN ADDRESS 
2556+* PERFORM ABOVE OPERATIONS FOR EFACH MOVEABLE HEAD. 0031F4 6E03 2CD8 2671 BAL XIOCS R6 ISSUE CSS CMD TO GET FILE CONFIG 
2557+* 0031F8 2E1C 2672 DC A($SERR ABOPT TEST IF ERROR 
2558+* MDI=$TUXX,T7A07,01,00,EQ 0031FA 402B 2A8C 0008 2673 TWI X'O008',CSTLS WAS THERE A CS STATUS ERROR? 
2559+* : 003200 6A00 2E1C 2674 BON $ERR$ YES - ABORT TEST 
2560+* TURESUL BIT(S) 0 wcwassccee SENSE ERROR AFTER WRITE 003204 6808 2A8C 2675 MVW CSTL5,R0 LOAD FILE CONFIG STATUS WD IN REG 
25614+* = 4. oo ee BUS PARITY CHECK 003208 3029 2676 SLL 5,R0 * 
2562+%* a 2 ge ee a ee - 62PC INTERFACE FRROR O0O320A 306A 2677 SRL 13 PFO POSITION IN RIGHTMOST BYTE 
2563+* - BN aN ea ed ERROP AFTER READ VERIFY 00320C 101B 2678 JZ CFGER PRINT MSG IF FILE NOT ATTACHED 
2564+* é (Te ee TR RAEN TRACK ID INCORRECT 00320E F003 2679 CBI 3,R0 ARE FIXED HEADS AVAILABLE ON FILE? 
2565+ : 1.6 2S ED) ee es es CSS WORDS 4 AND 5 003210 150B 2680 JLE NEYH NO ~ GO SETUP HEAD PARAMETER 
2566+* ‘ AB. = FO occ ee - €SS WORDS 11 AND 12 003212 F005 2681 CBI 5,R0 CHECK FOR INVALID CONFIG 
2567+* 8h a. 147 a oe SECTOR ID 003214 1517 2682 JLE CFGER PRINT MSG IF IF INVALID 
2568+ 003216 4020 33F4 0004 2683 MVWI 4,MVHDS SETUP HEAD PARAMATER FOR FIXED 
2569+* RETURN CONTROL 00321C F007 2684 CBI 7,R0 * HEAD MODEL 
2570+ eset one eem eee  <acee gue eaten : 
- + B TURTN* RETURN TO MDI SUPERVISOR ADS * 
2572+* 003226 500C 2687 J chrcx RETURN TO CALLER 
257 34 RI ICR IO IOI IOI III IG RO IG OI i ikea dato kaki aki akc ak akc ak 003228 4020 33F4 0003 2688 NFXH MVWI 3,MVHDS SETUP HEAD PARAMETER FOR NON-FIXED 
0030DE 6FOD 2AA6 2574+T7A07 MVW R7,TURTN SAVE RETURN ADDRESS 00322E F002 2689 CBI 2,R0 * HEAD MODEL 
0030E2 4020 2A64 7A07 2575+ MVWI X'7A07", $TUID SAVE TU ID FOR DISPLAY 903230 1407 2690 JLT CihFcx * 
0030F8 4424 2A5E 2576+ MVA OPtNT, RA SET UP POINTER ADRS IN R4 003232 1003 2691 JE  F29MB * 
0030EC 6E03 2DE8 2577+ BAL $CONC, CLEAR DEV DEP STG AND CONNECT I/0 BL 003234 4029 33F4 0006 2692 AWI 6,MVHDS * 
0030FO0 2EI1C 2578+ DC A (SERRE) ERROR ADRS FOR INVALID PREP 00323A 4029 33F4 0002 2693 F29MB AWI 2,MVHDS * 
2579+* 003240 6802 0000 2694 CNFGX B = RETURN TO CALLER 
0030F2 D025 18C8 2580 MVDZ TURESUL,RO CLEAR RESULTS AREA 2695 * 
OO30F6 p025 18cCC 2581 MVDZ _TURESUL44, RO CLEAR RESULTS AREA 003244 6802 2E1C 2696 CFGER B SERR§$ INVALID CONFIGURATION ~- ABORT TEST 
OO30FA D025 18D0 2582 MVDZ “TUORESUL+8. RO CLEAR RESULTS AREA 2698 HK HH KK He eo ote he he aK oe eK ie aK i aK a 2 a oh eK 2 2 oie fo a ak ade ke oo ok i 2 2K ok i ok a ok oi kok ke tok ake fe oe te ok ok fc akc 
OO30FE C825 18D4 2583 MVWZ TURESUL+12,R0 CLEAR RESULTS AREA 2699 * 
003102 6803 3248 2584 BAL $SWBUF, RG INITIALIZE THE WRITE BUFFER 2700 * SUBROUTINE 
003106 4020 2B16 0028 2585 MVWI X'0028', WRDCB WRITE DATA CNTL WD 2701 * 
00310C 4020 2B26 0019 2586 MVWI xX*'0019",VRDCB LOAD VERIFY CNTL WORD FOR DCB 2702 * PURPOSE ~- INITIALIZE WRITE BUFFER 
003112 4020 2B22 0500 2587 MVWI 1280,WRDCB+12 SET BYTE CNT TO WRITE 5 RECORDS 2703 * DATA IS SUPPLIED BY OPERATOR,IF ANY BYTE IS OO! OR 
003118 8828 2B22 2B32 2588 MVW WRDCB+ 12, VRDCB+12 SETUP BYTE CNT IN READ VERIFY DCB 2704 * 'FF' DATA WILL DEFAULT TO 'EB6D 6BDB'. EACH TIME 
00311E 4020 2B24 3524 2589 MVA WRBUF, #RBCB* 14 LOAD ADDR OF WRITE BUF IN WR DCB 2705 * DATA BUFFER TS LOADED ‘DATA* IS INCREMENTED BY 
003124 C825 2AF6 2590 MVWZ SKDCB,RO LOAD SEEK CNTL WD IN DCB 2706 * X'U901". "O00! 'PF' IS INVALID AFTER INCREMENTING. 
003128 4020 2AFA 0167 2591 MVWI 359, SKDCB+4 INITIALIZE HEAD# TO 0, CYLINDER 359 2707 * DATA WILL AUTOMATICALLY BE INCREMENTED TO ELIMINATE 
00312E 6803 31F0 2592 BAL CNFIG,R6 GET NO. OF MOVEABLE HEADS ON FILE 2708 * INVALID VALUE. NOTE: IF FLAG BIT B4s {OPTION WORD 2 
003132 8828 33F4 33F2 2593 MVW MVHDS,HDCNT STORE NO. OF MOVEABLE HEADS IN CTR 2709 * BIT O). IS SET ON BY OPERATOR DATA PATTERN WILL NOT 
003138 1B03 2594 JNEV NXTHD 46 SELECT HEAD 0 IF NO FIXED HEADS 2710 * BE INCREMENTED BUT WILI. REMAIN FIXED. 
00313A 4029 2AFA 0400 2595 NXTHD AWI rO400 SKDCBt4 ELSE — SELECT NEXT HEAD# 2711 * 
003140 6E03 2BCO 2596 BAL EEK,R6 SELECT HEAD FOR READ/WRITE TEST 2712 * CALLING SEQUENCE - BAL SWBRUF,R6 
003144 2R1C 2597 Cc : (SERRS) ABORT TEST IF ERROR 2713 * 
003146 4CATI 2598 TBTR ee ER) WAS THERE AN INTERRUPT ERROR? 27714 * RETURN - BXS  (R6) 
003148 6A00 2E1C 2599 BON ERRS$ YES - ABORT TEST 2715 * 
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DISK WRITE TESTS P/N=8327671 EC=375222 PAGE 11 
STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2947 TBTR gpa ER) WAS THERE AN EXCEPTION INTERRUPT? 
2948 HVWI X*0657*,ToMOD LOAD WRAP BYTE IDCB CMD WD 
3949 BAL $WRTO,R6 FETCH WRAP BYTE 
2950 DC A (SERRS) ABORT TEST IF ERROR 
2951 TBTR Ki 4 ER) WAS THERE AN EXCEPTION INTERRUPT? 
2952 T7A88 BAL TOcS, R6 GET CYCLE STEAL STATUS 
2953 Dc A (SERRS) ABORT ON ERROR 
2954 MVD CST12,TUWORK+10 SAVE THE DIAG. SENSE BYTES 
2955 HVW TOWORK, TURESUL MOVE INTO TU RESULTS AREA 
3956 MVD  TUWORK+2,TURESUL+2 x* 

2957 MVD TUWORK+6.TURESUL+6 * 
2958 MVD TUWORK+10,TURESUL+10  * 
2959 TWI xX'0001', TOUWORKt2 CHECK INTERFACE ERROR? 
2960 JON T7A89 YES EXIT 
2961 MVBZ TURESUL+13,R0 CLEAR WRAP BYTE IF NO ERROR 
2962 T7A89 TXIT 
2963+T7A89 B $CONX RETURN TO MDI CONTROLLER 
PATTER SST SLE LL SSF STE TS TSS SS SSS SS SSS SSS SS SSS StS eS SS SSS SSS SSP Pe TCS SS SS eS St et 2. 
2966 COPY TT7A17 O7FEB78 
2967 TTA17 TUIT 
DOG 8B FR KK HH He ee ee 2 eye ake co 2 a a ae oe 2 a a eo a ae ok ic a a a 2 i ok a ok ok ok ek ok EE KK KOHF EBT 6 ** 
2969t* 
2970+* TEST UNIT 
29714% 
2972+* FIXED HEADS READ/WRITE TEST 
2973+% 
2974+* PURPOSE 
2975+* 
2976+% TO VERIFY THE READ/WRITE CAPABILITY OF FIXED HEADS. 
+ 
2978+* CALLING SEQUENCE 
2979+% 
2980+* GET FILE CONFIGURATION. 
2981+% AFTER FACH HEAD SELECTION, READ AND VERIFY SECTOR ID. 
3982+% WRITE 5 RECORDS OF DATA/HBAD ON CYLINDER 359. 
2983+% READ/STORE/CHECK SENSE AFTER EACH WRITE. 
2984+% READ VERIFY AFTER EACH PATTERN AND READ/STORE/CHECK SENSE. 
2985+% PERFORM ABOVE OPERATIONS FOR EACH FIXED HEAD. 
+ » 
2987+% MDI=$TUXX, 'T7A17,01,00,EQ! 
+ . 
2989+% TURESUL BIT(S) 0 ...-.-ece- SENSE ERROR AFTER WRITE 
2990+* i Wi eee tee BUS PARITY CHECK 
29914+% ? 7 ROR AN AER 62PC INTERFACE ERROR 
2992+% : SMa na te EPROR AFTER READ VERIFY 
2993+* : ee ee TRACK ID INCORRECT 
29944+* 5 16.2007 coos ~. CSS WORDS 5 AND 6 
2995+% ‘ UBS. 79-1 eee n CSS WORDS 12 AND 13 
2996+* 2 60: =: 441 Sees > SECTOR ID 
2997+* 
2998+* RETURN CONTROL 
2999+ 
3000++ B TURTN* RETURN TO MDI SUPERVISOR 
+ 
BOO DHA RK HH He He eH he He fe Kee 3 Be A He 2 3 ee I AK ae ae fe ake af He fe ae ae af Eafe ae afk ae ake 2 ake ae ak ake he ak of ake a a ake af 3c afc eK fk ake ake oh ake a 
3003+T7A17 MVYW RV, TURTN SAVE RETURN ADDRESS 
3004+ MVWI X*7A17",STUID SAVE TU ID FOR DISPLAY 
3005+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 
3006+ BAL $CONC.R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
3007+ DC A (SERR$) ERROR ADRS FOR INVALID PREP 
+ 
3009 MVDZ TURESUL,RO CLEAR RESULTS AREA 
3010 MVDZ TURESUL+4, RO CLEAR RESULTS AREA 
3011 HVDZ TURESUL+8. RO CLEAR RESULTS AREA 
3012 MVWZ TURESUL+12, RO CLEAR RESULTS AREA 
3013 BAL $WBUF,R6 INITIALIZE THE WRITE BUFFER 
3014 MVWI x'0028', wRDCB WRITE DATA CNTL WD 
3015 MVAI X'0019'’ VRDCB LOAD VERIFY CNTL WORD FOR DCB 
3016 MVWI 1280,WRDCB+12 SET BYTE CNT TO WRITE 5 RECORDS 
3017 MVW  WRDCBH+12, VRDCBt+12 SETUP BYTE CNT IN READ VERIFY DCB 
3018 MVA  WRBUF,WRDCB+14 LOAD ADDR OF WRITE BUF IN HR DCB 
3019 MVHZ SKDCB-RO LOAD SEEK CNTL WD IN DCB 
3020 MVHI Xt4G1PFt > sKpcB+4 SETUP INITIAL FXD HEAD ID# 
3021 MVHI 8,HDCNT INITIALIZE FIXED HEAD COUNTER 
3022 FXHD BAL $SEEK,R6 SELECT HEAD FOR READ/WRITE TEST 
3023 DC A (SERRS) ABORT TEST IF ERROR 
3024 TBTR { 4, ER) WAS THERE AN INTERRUPT ERROR? 
3025 BON ERRS YES - ABORT TEST 
3026 BAL TWOSC,R6 FIND FIVE GOOD CONSECUTIVE SECTORS 
3027 TBT (R2 uf CHECK IF ID CORRECT? 
3028 JON TAAT GET STATUS 
3029 MVA  TURESUL, R2 SETUP ADDR OF TU RESULTS BUFF IN R2 
3030 MVW  RCDNO,WRDCB+2 LOAD STARTING RECORD# IN WRITE DCB 
3031 MVW  SKDCB+4,WRDCB+4 LOAD HEAD/CYLINDER#'S IN WRITE DCB 
30 32 MVW  SKDCB+4;VRDCB+4 LOAD HEAD/CYLINDER#'S IN VERIFY DCB 
3033 BAL $WRT,R WRITE 5 RECORDS OF DATA 
3034 DC A (SERRS) ABORT TEST IF ERROR 
3035 TBTR { ER) WAS THERE AN INTERRUPT ERROR? 
30 36 JOFF FxXHH2 YES - ABORT TEST 
3037 TBTS (Re 0) SET WRITE FRROR 
3038 J TAT GET STATUS 
3039 FXHD2 MVW  WRDCB+2,VRDCB+t2 LOAD RECORD# IN RD VERIFY DCB 
3040 BAL $RDVY,R6 VERIFY 5 RECORDS OF DATA 
3041 DC A(SERRS) ABORT TEST IF ERROR 
3042 TBTR f 4 ER) WAS THERE AN INTERRUPT ERROR? 
3043 JOFF PfxHDp3 YES —- ABORT TEST 
3044 TBTS (R2 2) SET READ VERIFY ERROR 
3045 J TANT GET STATUS 
3046 FXHD3 AWI X'04G00',SKDCB+t INCREMENT FIXED HEAD # 
3047 SWI 1,HDCNT HAVE ALL FIXED HEADS BEEN TESTED? 
3048 IP FXHD NO - GO WRITE ON NEXT FXD HD TRACK 
3049 X7A17A BAL XIOCS,R6 GO READ STATUS 
3050 DC A(SERRS) ABORT TEST IF ERROR 
3051 TWI  X*0008',CSTLS5 WAS THERE A CYCLE STEAL STAUS ERROR? 
3052 BON $ERR$ YES — ABORT TEST 
3053 THI X*0001',CSTLS INTERFACE ERROR? 
3054 JON  PCLER YES - CHECK FOR PARITY ERROR 
3055 THI X*0080',CSTL6 PARITY ERROR/ 
3056 JON  PRTYY YES- SET PARITY ERROR BIT ON 
3057 X7A17 MVD CSTL5,TURESUL+2 SAVE CSS WORDS 4 2, AND 13 
3058 MVD  CST12-TURESUL+6 * IN TURESULTS BUFFER 
3959 MVD, SCTID, TURESUL4#10 SAVE SECTOR ID IN TU RESULTS BUFFER 
3061+ B $CONX RETURN TO MDI CONTROLLER 
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DISK WRITE TESTS P/N=8327671 EC=375222 PAGE 11A 
STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
30 6 D+ A eK A He He he He ae Oe ee 2 i 2h he he a i 2c 2 2 i a 2 aK aK ic a 2c ae 2 a a 2 a af ak ae fe ake fe ae fe aft et a ke ake ake fe akc ak afc ake oc ake ae ae afc ake ak 
3063 PRTYY TBTS {B2 1) BUS PARITY ERROR 
3064 a TAYT SETUP STATUS IN TU RESULTS BUFFER 
3065 PCLER TBTS {R2 2) INTERFACE ERROR 
3066 THI 10620*,cs7T13 BUS PARITY CHECK? 
3067 JON  PRTYY YES - SET PARITY ERROR BIT ON 
3068 J X7A17 SETUP STATUS IN TU RESULTS BUFFER 
3069 COPY T7A54 11SEP78 
3070 T7A54 TUIT 
30 7 14264 OO Oo aio iio i icici tok icioiictuitokoiaiaiok tokioks 06 PEB7 6% * 
3072+* 
307348 TEST UNIT 
+ 
JO TSA EK HH He ee he He He HK Me HK a 3 3 3K 2K OK i i a ok i 2 ae a a fe hc 2 ae ke a a ae fe ae a ae afc ae 2k fe ie a cfc a ae ake fe ake af ae a akc af ae afc af ake afc 
3076+ 
3077+* PURPOSE 
3078+* 
3079+* 
3080+* CALLING SEQUENCE 
3081+% 
30824+* TEST UNIT 
3083+* 
30844+* RETURN CONTROL 
3085+* 
3086++ B TURTN* RETURN TO MDI SUPERVISOR 
+ 
3 OB BH He Me Me eM she 3h he he IK ae 2 Kc he AK EK 3K 2 af 2 2 ic eC fe af 2 ae fe a ie ae fe af ake ak ake ae ok afc Ke fe ake af oe ae 2 ee af ae af ac 2 kk a ae fe 2 he ake afc af oe afc ak 
3089+T7A54 MVW R7,TURTN SAVE RETURN ADDRESS 
3090+ MVWI X'4A54", sTUID SAVE TU ID FOR DISPLAY 
3091+ MVA  OPTN1, RG SET UP POINTER ADRS IN R4& 
3092+ BAL $CONC.,R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
3093+ DC A (SERRS) ERROR ADRS FOR INVALID PREP 
+ 
3095 * PURPOSE 
3096 * 
3097 : TO VERIFY THE SCAN FUNCTION 
3099 * CALLING SEQUENCE 
3100 * 
3191 * MDI=$TUXX,T7A54,01,10,EQ! 
3193 : TURESULS BIT(S) 3.-..-. SCAN ERROR 
3105 * RETURN CONTROL 
3106 * 
3107 * B  TURTN* RETURN TO MDI SUPERVISOR 
3109 BR Ee Be AK ik A 2h Be hk he ae fe ae ye ac afc 39 3h ae he a of he he hc afc fc ae 3 ac ae afk ae he ae 8c 2 af af ake fe fe e ahe ak ae he ae ae 2K eke ak ae ae ak ae ak ae ake afc afk 
3110 MVWZ SKDCB,RO SEEK CNTL WD - CHALINING 
3111 MVWI 359,skDCB+e4 SETUP CYLINDER # 359 TO SEEK TO 
3112 MVW  MVHDS,HDCNT GET NUMBER OF MOVEABLE HEADS 
3113 JNEV RT70 SELECT HEAD 0 IF NO FIXED HEADS 
3114 RT701 AWI X*0400",SKDCB+4 SELECT HEAD 1 IF FIXED HEADS 
3115 RT702 BAL $SEEK,R6 SEEK TO CYL #359 AND READ SECTOR ID 
3116 DC A (SERRS) RETRY ADDRESS 
3117 BAL TWOSC,R6 FIND FIVE GOOD CONS SECTORS 
3118 MVB  RCDNO+1,SCDCB+3 LOAD STARTING RECORD NUMBER 
3119 MVW ©SKDCB+4/SCDCB+4 LOAD HEAD AND CYLINDER NUMBERS 
3120 MVWI 258, SCDEB412 SET BYTE CNT EQUAL TO 
3121 HVA SCBOF,SCDCB+14 LOAD ADDRESS OF SCAN ARG BUFFER 
3122 MVDZ $DATA,RO INITIALIZE WRITE BUFFER 
3123 BAL $WBUF,R6 * 
3124 HVB  RCDNO+1,SCDCBt3 LOAD STARTING RECORD NUMBER 
3125 MVW  SKDCB+4~SCDCB+4 LOAD HEAD AND CYLINDER NUMBERS 
3126 MVWI 258,Scp€B412 SET BYTE CNT EQUAL TO 258 
3127 NVA  SCBUF,SCDCBt+14 LOAD ADDRESS OF SCAN ARG BUFFER 
3128 BAL INSCN,R6 SET SCAN BUFFER TO ALL ONES 
3129 MVB  WRBUF+255,SCBUF+255 SETUP SCAN ARG TO SCAN 1ST DATA REC 
3130 MVW  WRBUF,SCBUF x 
3131 MVHI X* FOF" scaure2 % 
3132 MVBI 20,R7 * 
3133 HV SCBUF+80, R5 * 
3134 MVA  WRBUF+336,R3 * 
3135 HVFN (R3) AP5) x* 
3136 TBTR (R4,859 RESET SCAN NOT HIT BIT 
3137 TBTS (RU, B60 SET SCAN EQUAL HIT BIT 
3138 HVWZ SCDCB+6,RO0 SETUP SCAN DCB TO SCAN 1ST REC ONLY 
3139 MVA  SCBUF+256,DELIM SETUP EXPT DELIM HIT ADDR 
3140 MVA  WRBUF,RECRD GET ADDR OF RECORD WHERE HIT EXPT (1) 
3141 BAL SCNEQ,R6 SCAN EQUAL (HIT EXPT ON 256TH BYTE) 
3142 TXIT RETURN TO MDI 
3143+ B SCONX RETURN TO MDI CONTROLLER 
Sa ee ey ete eee ne TTT ete Rene RE een tere nee Oe eE RECEP EST S COUT Ee 
x 
3146 SCNEQ MVWI X'2038',SCDCB SCAN EQUAL CNTL WD 
3147 MVW  R6,XSCAN+F2 SAVE RETURN ADDRESS 
3148 MVA  SCBUF,R3 ADDRESS OF SCAN ARG RECORD 
3149 MVA  WRBUF,R5 ADDRESS OF EXPT RETURN ARG RECORD 
3150 MVWI 258.R9 NO. OF BYTES TO HOVE 
3151 MVFN (R3f §B5) SET UP EXPECTED RETURN SCAN ARG 
3152 TBT RG, B59) IS A HIT EXPT? 
3153 JON REC NO - DO NOT MODIFIY SCAN ARG RECORD 
3154 MVWI X'FFFF!' WRBUF+256 MODIFY EXPDA BUF IF HIT ON 256TH BYTE 
3155 MVW  DELIM,Ri ATTCH WILL STORE DATA AT "DELIN¢+ 
3156 AWI 2,R * IF HIT AND HIT NOT ON 256TH BYTE 
3157 SH R41,R3 NO. OF RECORD BYTES EXP TO BE RETURN 
3158 HVW 0260 OR3 RT SET UP BYTE CNT FOR MOVE OPERATION 
3159 MVW  RECRD,R2 GET ADDR OF RECORD WHERE DATA WILL 
3160 AWL 55,R2 x BE RETURNED AND POINT TO LAST BYTE 
3161 ABI -1,85 ADJUST ADDR TO ‘LAST BYTE OF EXPT BUF 
3162 MV FD (82) (R5) SETUP EXPT MODIFIED SCAN ARG RECORD 
3163 NREC BAL SCAN, R6 GO SCAN RECORD (S) 
3164 DC A (SERRS) RETRY ADDRESS 
3165 MVBI 0O,R2 SET SCAN SUMMARY BITS AS EXPT IN IIB 
3166 TBT (ka B59) SCAN HIT EXPECTED? 
3167 JOFF OHET YES - CHECK FOR SCAN EQL HIT EXPT 
3168 HVBI xX'40',R2 SET EXPT SCAN STATUS FOR NO HIT 
3169 J CKSCN CHECK SCAN STATUS IN LIB FOR NO HIT 
3170 EQHIT TBT (Bu B60) SCAN EQUAL HIT EXPECTED? 
3171 JOFF CKSEN NO ~- CHECK FOR LOW/HIGH HIT 
3172 MVBI X'20'-R2 YFS - SET EXPT STATUS FOR EQL HIT 
3173 CKSCN MVB $1SB,h1 SAVE IIB SCAN STATUS 
3174 CB $ISB,R2 SCAN STATUS IN IIB AS EXPECTED? 
3175 JNE  SCNER NO - GO RETURN ERROR RESULTS 


I7A80 --- DISK WRITE TESTS P/N=8327671 EC=375222 PAGE 12 I7A40 --- DISK WRITE TESTS P/N=8327671 EC=375222 PAGE 12A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~ REFERENCE LISTING COPYRIGHT IBM CORP 1976 
OO3CBC 1203 3495 JON XSCAN 0 # SEPT TP CORRECT RETURN OK ee ee 
003CBE 4520 18C8 1000 3178 SCNER SVWI X*1000", TURESUL SET SCAN ERROR BIT 2338 $CONC UD RES oe ete sane pgs ee nee. oP RENGTH (2) 
003CC4 6802 0000 3179 XSCAN B RETURN 2476 2577 2929 3006 = =3092 
3180 * 2407 $CONX ADDRESS; HEX LOCATION (OQOOZE7E) IN CSECT(I7A40 ) LENGTH(1) 
993Cc8 4020 2DD8 3CEA 3181 S$SCAN HVA — SCDCB, IODCB SET DCB ADDRESS 1043 SDATA ADDRESS. HEX LOCATION (OQQO2AA0) IN CSECT(I7A4O |) LENGTH (2) 
3183 * 2721 2727 2733. 2740 2741 2742 2744 27 2748 
Etat ae eee tet aiee eee ave ee R3 g° RUCUHEND HeCOhG GoaeeETaG 2380 $ERRS ADDRESS. HEX LOCATION (OQQO2EIC) IN CSECT(I7A40 |) LENGTH (6) 
OO3CDA ODFF 3186 HVBI XUFEt gR5 % ALL ONE'S 2477 2483 2491 2500 2516 2523 2526 2578 2597 
003CDC 2DéC 3187 PFN ORS 3) * 2599 2610 2617 2630 2632 2672 2€74 2696 2792 
O0O3CDE 4020 3520 0000 3188 NVUT : “ec +256 SET LAST TWO BYTES OF SCAN REC TO O'S 2817 2930 2934 2939 2942 2946 2950 2953 3007 
OO3CE4U 5600 3189 BXS RETURN TO CALLER 3023 3025 3034 3041 3050 3052 3093 3116 3164 
3190 * 1044 $INTL ADDRESS, HEX LOCATION (O0002AA4) IN CSECT(I7A40  ) LENGTH (2) 
$O3cEs 0000 3192 RECRD DC Ms =3} ADDR OF EXPTECTED RECORD DATA 1009 STOIN ©“ ADDRESS. HEX LOCATION (00002A66) IN CSECT(I7A40 ) LENGTH (2) 
3193 * 
$k 9k = = “ 4k 1010 $ISB ADDRESS, HEX LOCATION (00002A68) IN CSECT(I7A40 LENGTH (2 
A138 *#4%# SCAN DCB (2038-EQUAL, 2039-LOW/EQUAL, 203A-HIGH/EQUAL) * dune tip oo ca eas ( 3386 uaa SE ( ) (2) 
003CEA 9000 3196 SCDCB DC A (*-* SCAN CONTROL WORD 994 $LE si peouuse. HEX VALUE (00000026) 
OO3CEE 0000 3138 ite ro Sean OL ELT DES A 1404 $RD ADDRESS. HEX LOCATION (O0002BFE) IN CSECT(I7A40 ) LENGTH (2) 
Kam & 
Bence. SEGO 3500 Re Ride ) Sea Mapeeee 1389 $RDID ADDRESS. HEX LOCATION(00002BD0) IN CSECT(I7A40 ) LENGTH (6) 
OO3CF4 0000 3201 DC A (*-* CHAIN ADDRESS 2499 2791 
003CF6 0102 3502 DC F'258 BYTE COUNT 1411 $RDVY ADDRESS. HEX LOCATION (00002C12) IN CSECT(I7A40 ) LENGTH (6) 
OGSOR) Baee 3303 oe a) cea pen Veen vara 1386 $RECL ADDRESS. HEX LOCATION(00002BC8) IN CSECT(I7A40 ) LENGTH(6) 
B2O5 Hm Mem we He Mee he Me she he ee he ae a eK KR AK a 2 CK fe 2 ea a fe hc a 2 a kc oe 2c 2 2 ef ae ae a ce fe 2 ae 2c a 2 ak ke ok 2482 
O3CF 00000000000000000 3206 PATCH pC PATCH AREA 3181 $SCAN saa ees HEX LOCATION (00003CC8) IN CSECT(I7A40 ) LENGTH (6) 
Oana tat Geena | 1 Se een, eee 1383 $SEEK ADDRESS. HEX LOCATION (00002BCO) IN CSECT(I7A40 ) LENGTH (6) 
1008 $TUID ADDRESS. HEX LOCATION (0QQQ2A64) IN CSECT(I7A40 ) LENGTH(2) 
1054 2404 2442 2474 2575 2927 3004 3090 
2718 $WBUF JADDRESS, “HEE LOCATION (00603248) IN CSECT(I7A40 ) LENGTH(1) 
1414 $WRT ADDRESS. HEX LOCATION (00002C1A) IN CSECT(I7A40 ) LENGTH (6) 
14 36 $WRTO ADDRESS, (HEX LOCATION (00002C60) IN CSECT(I7A40 ) LENGTH (4) 
1457 $WRT1 ,ADDRESS. HEX LOCATION (00002CA0) IN CSECT(I7A40 ) LENGTH (2) 
42 @CALL ABSOLUTE, HEX VALUE (00000201) 
518 568 600 730 2 809 827 848 
102 @DCADD1 = ADDRESS. HEX LOCATION(000019B8) IN CSECT(I7A4O ) LENGTH (1) 
103 @DCADD2 = ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7A40 LENGTH (1) 
39 @FIXT ABSOLUTE. HEX VALUE (00000101) 
606 621 8 833 854 
41 @GOTO ABSOLUTE. HEX VALUE (00000200) 
474 536 636 698 
46 @NVLD ABSOLUTE. HEX VALUE (00000600) 
516 566 598 728 760 783 
38 @QUES ABSOLUTE. HEX VALUE (00000100) 
45 @TUXX ABSOLUTE. HEX VALUE (00000500) 
480 492 504 524 542° 554 574 586 
624 642 654 666 686 704 716 #736 
771__ 785 797 815 836 
2412 BEGIN ADRESS. HEX LOCATION (00002E88) IN CSECT(I7A40 LENGTH (2) 
2437 BITOO80 ABSOLUTE. HEX VALUE (00000080) 
24 32 BUF PT ADDRESS. HEX LOCATION (00002FE4) IN CSECT(I7A40 LENGTH (2) 
957 B48 ABSOLUTE. HEX VALUE (00000010) 
968 B59 ABSOLUTE. HEX VALUE (00000018) 
3136 3152 3166 
969 B60 ABSOLUTE. HEX VALUE (000000 1C) 
2882 CDAT ADDRESS. HEX LOCATION (0Q0033F0) IN CSECT(I7AGO |_) LENGTH (2) 
2719 2722 2728 2742 2744 2748 2750 2752 
2754 2758 
998 CE ABSOLUTE. HEX_VALUE(0000002A) 
2094 2208 2278 
2696 CFGER sADBRESS. HEX LOCATION (00003244) IN CSECT(I7A40 ) LENGTH (4) 
2486 CHK1 ADDRESS. HEX LOCATION (0000301A) IN CSECT(I7A40 ) LENGTH (6) 
2494 CHK2 ADDRESS. HEX LOCATION (00003036) IN CSECT(I7A40 ) LENGTH (6) 
2510 CHK3 ADDRESS. HEX LOCATION (00003078) IN CSECT(I7A40 ) LENGTH (6) 
2519 CHK4 ADDRESS. HEX LOCATION (00003098) IN CSECT(I7A40 ) LENGTH (6) 
1083 CICB ABSOLUTE. HEX VALUE (00000014) 
3173 CKSCN gADBRESS. HEX LOCATION (00003CAC) IN CSECT(I7A40 ) LENGTH (4) 
1180 CLDCB {ADDRESS. HEX LOCATION (00002AC6) IN CSECT(I7A40 ) LENGTH (2) 
2722 CLOP ADBRESS. HEX LOCATION (00003256) IN CSECT(I7A40 ) LENGTH (4) 
2728 CLOP1 ADDRESS. HEX LOCATION (0000326A) IN CSECT(I7A40 ) LENGTH(4) 
2694 CNFGX ADDRESS. HEX LOCATION (00003240) IN CSECT(I7A40 ) LENGTH(4) 
2670 2685 2687 26 
2670 CNFIG ADDRESS. HEX LOCATION (000031F0) IN CSECT(I7A40 ) LENGTH (4) 
2879 CNVTX ADDRESS. HEX LOCATION(000033E8) IN CSECT(I7A40  ) LENGTH(4) 
2857 2859 2869 2877 
2854 CONVT ADDRESS. HEX LOCATION (00003392) IN CSECT(I7A40  ) LENGTH(1) 
996 cS ABSOLUTE. HEX VALUE (00000028) 
20 2098 2206 224 276 
997 CSA ABSOLUTE. HEX VALUE (00000029) 
1027 CSBUF ADDRESS. HEX LOCATION (00002A84) IN CSECT(I7A40 LENGTH (1) 
1225 1438 2106 
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CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


>ARDRESS. HEX LOCATION (00002B06) IN 
ADDRESS. HEX LOCATION (0QQ02A8C) IN 
2531 2631 2633 2637 2673 2675 
ADDRESS. HEX LOCATION(O0002A8E) IN 
2529 2635 2935 3055 

ADDRESS. HEX LOCATION(O0002A9A) IN 
2532 2638 29 2 

ADDRESS. HEX LOCATION(00002A9C) IN 
2646 3066 

ADDRESS. HEX LOCATION(00002B9E) IN 
2787 2812 2818 
a ADDRESS. HEX LOCATION(000033D4) IN 
sADDRESS- HEX LOCATION (000033CE) IN 
ADDRESS. HEX LOCATION(00002A74) IN 
1441 2101 
oRDDRESS. HEX LOCATION(00002FE6) IN 
ADDRESS. HEX LOCATION(00003CE6) IN 
3139 3155 

ADDRESS. HEX LOCATION(000019D0) IN 
1047 2299 2308 

ADDRESS. HEX LOCATION(00002A6C) IN 
1016 2340 

ADDRESS. HEX LOCATION(00002A72) IN 
2209 2210 

ADDRESS. HEX LOCATION(00002AB6) IN 
ABSOLUTE. HEX VALUE (00000000) 

462 856 871 

ADDRESS. BEX LOCATION (0000285E) IN 
ABSOLUTE. HEX VALUE (00000000) 

483 507 557 589 645 669 
ADDRESS. HEX LOCATION(00003CA6) IN 
ABSOLUTE. HEX VALUE (00099021) 

1447 2112 2133 22716 2258 2283 
2793 2940 2947 2951 3024 3035 
ABSOLUTE. HEX VALUE (00000006) 
aADDRESS. HEX LOCATION(OO002FEA) IN 
gADBRESS. HEX LOCATION (00003B10) IN 
gABDRESS. HEX LOCATION (00003248) IN 
ghDBRESS. HEX LOCATION (00003B5C) IN 
ADDRESS. HEX LOCATION(000029EC) IN 
810 828 849 

ADDRESS. HEX LOCATION(00002868) IN 
ADDRESS. HEX LOCATION (000028A8) IN 
ADDRESS. HEX LOCATION (000028C2) IN 
ADDRESS. HEX LOCATION (000028D0) IN 
ADDRESS. HEX LOCATION (000028EA) IN 
ADDRESS. HEX LOCATION (00002904) IN 
ADDRESS. HEX LOCATION (00002926) IN 
ADDRESS. HEX LOCATION (00002956) IN 
ADDRESS. HEX LOCATION (0000296F) IN 
ADDRESS. HEX LOCATION (00002988) IN 
ADDRESS. HEX LOCATION (00002996) IN 
ADDRESS. HEX LOCATION (000029B0) IN 
ADDRESS. HEX LOCATION (000029CA) IN 
ADDRESS. HEX LOCATION (00002A40) IN 
ADDRESS. HEX LOCATION (00002A22) IN 
> ADDRESS. HEX LOCATION (0000323A) IN 
jADDRESS. HEX LOCATION (000032CA) IN 
ADDRESS. HEX LOCATION(000033F2) IN 
2593 2626 3021 3047 3112 
ADDRESS. HEX LOCATION (000033BA) IN 
jADDRESS. HEX LOCATION(000033BE) IN 
aADDRESS. HEX LOCATION (O00002FEC) IN 
ABSOLUTE. HEX VALUE (0000001A) 
ADDRESS. HEX LOCATION (0000338A) IN 
2794 2808 2810 

ABSOLUTE. HEX VALUE (00000002) 

2127 2129 

ADDRESS. HEX LOCATION (00002BA0) IN 
1291 1399 

ABSOLUTE. HEX VALUE (00000023) 

1446 2113 2125 2246 

ADDRESS. HEX LOCATION (000032D8) IN 
2743 2745 2747 9 

ADDRESS. HEX LOCATION (00003296) IN 
ADDRESS. HEX LOCATION (00003CD2) IN 
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LENGTH (1) 


LENGTH (2) 


LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 


LENGTH (4) 


LENGTH (2) 


LENGTH (6) 


LENGTH (4) 
LENGTH (4) 
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DECLARED 


2308 
2203 
2212 
2216 
2243 

63 
2265 
2246 
2251 
2259 
2299 
2301 


2302 
37 
1299 
2418 
1011 
988 
2392 
2884 
2805 
2688 
1000 
995 
3163 
2605 
2615 
2622 
2626 
2595 
471 
474 
480 
492 
504 
516 
518 
5 24 
5 36 
542 
554 
5 66 
568 
574 
5 86 
598 
600 
606 
609 
621 
624 
6 36 
642 
654 
666 
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DISK WRITE TESTS 


NAME 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRNL 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A40 
LGSEC 
LINE1 
LSTIO 
MI 
MVBUF 
MVHDS 
NDSPL 
NFXH 
NG 

NI 
NREC 
NXHD1 
NXHD2 
NXHD3 
NXHD& 
NX THD 
N00001 
N00002 
N00003 
NOOOO4 
NO0005 
NO0006 
N00007 
N00008 
NO00009 
N00010 
N00011 
N00012 
N00013 
N00014 
NO0015 
NO0016 
N00017 
N00018 
N00019 
N00020 
N00021 
N00022 
N00023 
NO0024 


NO0025 








P/N= 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (00002DE0) 
DDRESS. HEX LOCATION (00002D44) 
; RESS. HEX LOCATION (00002D5C) 
5 RESS. HEX LOCATION (00002D64) 
> RESS. HEX LOCATION (00002D68) 
ose HEX VALUE (00000000) 
RESS. HEX LOCATION (00002D98) 
; RESS. HEX LOCATION (00002D70) 
2 2215 22 
RESS. HEX LOCATION (00002D7F) 


RESS. 


ee) 
ty 


ie) 
ty 


OLUTE. 
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RESS. 
RESS. 
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RESS. 
RESS. 
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RESS. 
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HEX LOCATION (00002D8C) 
Bee haa ded 


CATION (00002DD8 
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CATION (00002ECO) 
CATION (00002A6A) 
ALUE (00000020) 


ott fat CoOmqnaors 
qa OF0 OWOCLYOH 
io) 
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LOCATION (00003C96) 
LOCATION (00003158) 
LOCATION (0000317C) 
LOCATION (00003190) 
LOCATION (000031A0) 
LOCATION (0000313A) 
LOCATION (000025C8) 
LOCATION (000025CC) 
LOCATION (000025D8) 
LOCATION (000025EA) 
LOCATION (000025FC) 
LOCATION (00002608) 
LOCATION (00002610) 
LOCATION (0000261C) 
LOCATION (000026 2E) 
LOCATION (00002638) 
LOCATION (0000264C) 
LOCATION (0000265E) 
LOCATION (00002660) 
LOCATION (0000266C) 
LOCATION (0000267E) 
LOCATION (00002690) 
LOCATION (00002692) 
LOCATION (0000269F) 
LOCATION (000026A2) 
LOCATION (000026B4) 
LOCATION (000026B8) 
LOCATION (000026CC) 
LOCATION (000026D8) 
LOCATION (000026EA) 
LOCATION (000026FC) 
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HEX LOCATION (OO0O02E4C) IN 
HEX LOCATION (000033F4) IN 
2686 2688 2692 2693 
HEX LOCATION (0000333C) IN 
HEX LOCATION(00003228) IN 
HEX VALUE (0000002C) 
HEX VALUE (00000027) 
HEX 
HEX 

5 
HEX 
HEX 
HEX 
HEX 

7 

HEX 
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LENGTH (2) 
LENGTH (2) 
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LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (40) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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LENGTH (2) 
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I7A40 --- 


DECLARED 


678 
680 
686 
698 
704 
716 
728 
730 
736 
748 
760 
762 
768 
771 
783 
785 
797 
809 
815 
827 
833 
8 36 
848 
854 

58 


ot 
953 
976 
2885 
101 


2645 
3065 
1300 

69 


24 36 
1075 
2643 
3063 
2886 
2887 
1251 
2499 
3192 
2881 
1082 
1273 
1284 
1307 


1196 
2788 
2814 


DISK WRITE TESTS 


NAME 


N00026 
N00027 
N00028 
N00029 
N00030 
N00031 
N00032 
N00033 
NO0034 
N00035 
N00036 
N00037 
N00038 
N00039 
NOOO40 
N00041 
NOOO42 
N00043 
NOOO44 
NO0045 
NOOO46 
N00047 
NO00048 
NOOO49 
OF 


ON 
OPTN1 
OPTN3 
ORGID 
PARMARA 


PCERR 
PCLER 
PHYSC 
PID 


PIDMSG10 
PREP 
PRTY 
PRTYY 
RCDNO 
RDBUF 
RDDCB 
RDDID 
RECRD 
RGBUF 
RICB 
RKDCB 
RMDCB 
RSBA 


RSDCB 
RT428 
RT429 
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ATTRIBUTES AND REFERENCES 
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ADDRESS. HEX 
HEX 
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LOCATION (0000270E) 
LOCATION (00002710) 
LOCATION (0000271C) 
LOCATION (0000272E) 
LOCATION (0000273A) 
LOCATION (0000274C) 
LOCATION (0000275) 
LOCATION (00002760) 
LOCATION (0000276C) 
LOCATION (0000277E) 
LOCATION (00002790) 
LOCATION (00002792) 
LOCATION (0000279E) 
gy QCATION (00002742) 
LOCATION (00002756) 
LOCATION (000027B8) 
LOCATION (000027D6) 
LOCATION (000027F4) 
LOCATION (00002800) 
LOCATION (0000281E) 
LOCATION (0000282A) 
LOCATION (0000282E) 
HEX LOCATION (0000284 C) 
HEX LOCATION (00002858) 
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gHEX LOCATION (00003CE8) IN 
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I7A40 --- 


DECLARED 
2818 
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2473 
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DISK WRITE TESTS 


NAME ATTRIBUTES AND REFERENCES 

RT430 Soe HEX LOCATION (OO00336E) IN CSECT(I7A40 

RT 702 saa HEX LOCATION (OQOOO03BDC) IN CSECT(I7A40 

RO REGISTER. HEX eee eda) 
1450 1452 1453 2488 2514 2530 
2583 2590 2675 2676 2677 2679 
2721 2722 2727 2728 2797 2800 
2806 2807 2860 2861 2862 2864 
BEEN 2964 3009 3010 3011 3012 

R1 REGISTER. HEX ee ia ae 
2389 2392 2395 2398 2720 2724 
2741 3155 3156 3157 3173 

R2 REGISTER. HEX eto oene 
2394 2395 2601 2603 2605 2613 
2739 2785 2811 2819 2825 2826 
Bh 3063 3065 3159 3160 3162 

R3 REGISTER. HEX He 
1336 1338 1390 1393 1400 1401 
1421 1437 1440 1443 1445 1466 
2104 2105 2108 2110 2167 2168 
2210 2214 2243 2244 2249 2262 
2342 2350 2387 2388 2392 2404 
3134 3135 3148 %3151 3157 3158 

R4 REGISTER. HEX See ooge 
WE THAT 1448 2094 2095 2098 
2116 2119 2125 2133 2205 2206 
2245 2246 2247 2257 2258 2259 
2276 2278 2281 2283 2475 2479 
2618 2736 2793 2928 2940 2947 
3035 3042 3091 3136 3137 3152 

R5 REGISTER. HEX eda soot. 
1337 1338 1391 1393 1399 1401 
1421 1438 1440 1441 14483 1465 
2106 2108 2124 2131 2253 2254 
2289 2291 2340 2341 2386 2399 
3151 3161 3162 3186 %3187 

R6 REGISTER. HEX Ee cone 
1339 1340 1436 2100 2120 2134 
2282 2290 2293 2295 2345 2351 
2397 2476 2482 2490 2499 2515 
2584 2592 2596 2600 2609 2616 
2757 2763 2784 2788 2791 2879 
2941 2945 2949 2952 3006 3013 
3040 3049 3092 3115 3117 3123 
3163 3189 

R7 REGISTER. HEX See ea nae” 
1055 1335 1392 1398 1406 1420 
1464 2103 2107 2114 +2209 2250 
2381 2390 2393 2405 2408 2473 
2761 2926 3003 3089 3132 3150 

SCBUF ADDRESS. HEX LOCATION (00003420) IN 
3121 3127 3129 3130 3131 3133 
3185 3188 3203 

SC DCB ADDRESS. HEX LOCATION (OQOO3CEA) IN 
3118 3119 3120 3121 3124 3125 
3146 3181 

SCNEQ a HEX LOCATION (00003C5C) IN 

SCNER sabe HEX LOCATION(OOOO3CBE) IN 

SCTID ADDRESS. HEX LOCATION (QOOO2A6C) IN 
1203 1280 1336 1391 1394 1419 
2639 2795 2798 2807 2809 2811 

SKDCB ADDRESS. HEX LOCATION (OOOO2AF6) IN 
1383 2488 2489 2590 2591 2595 
2809 2856 2860 3019 3020 3031 
31171 3114 3119 3125 

SNSTS ADDRESS. HEX LOCATION (000030B6) IN 
2484 2492 2505 2508 2517 

START rc LE Maia HEX VALUE (0000000A) 

SUPSTAT Prt eae HEX LOCATION (000019C4) IN 

TEST oy RBRESS. HEX LOCATION (O000329A) IN 

TUMSGWTR sine HEX LOCATION (QOOO18BA) IN 

TUPARM1 ADDRESS. HEX eek bee te ee IN 
248 2486 2494 2510 2527 2932 

TUPARM2 hoo Beane LOCATION (0000189C) IN 

TURESUL ADDRESS. HEX BO oe GG ose Ok IN 
2507 2524 2529 2530 2531 2532 
2583 2605 2637 2638 2639 2825 
2958 2961 3009 3010 3011 3012 
3059 3178 

TURTN ADDRESS. HEX Tho aoe oeea ab IN 
2410 2473 2574 2926 3003 3089 

TUSTATUS SE ee HEX LOCATION (00001818) IN 

TUWORK ADDRESS. HEX Be as gn ous ab IN 
2383 2384 2385 2387 2443 2932 
2954 2955 2956 2957 2958 2959 

TWOSC ADDRESS. HEX LOCATION (000032EC) IN 
2600 3026 3117 

TWSC ADDRESS. HEX LOCATION (00003386) IN 
2784 2827 

TWSC1 Or ck waa HEX LOCATION (O000337A) IN 

T7A02 ADDRESS. HEX LOCATION (OOOO2AAE) IN 
ree ay 544 576 656 688 

T7A06 aes HEX LOCATION (OQOOO2FF2) IN 

T7AO7 oa HEX LOCATION (QOOO30DE) IN 

T7A08 ADDRESS. HEX BB coe een IN 
506 556 588 6 26 668 18 
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2580 2581 
2681 2684 
2802 2804 
2866 2867 
3019 3110 
2726 2730 
2620 2643 
3027 3029 
3165 3168 
1404 1407 
1467 2088 
2169 2203 
2294 2339 
2735 2740 
3185 3187 
2112 2113 
2208 2212 
2261 2264 
2576 2598 
2951 3005 
3166 3170 
1405 1407 
1467 2102 
2255 2286 
3133 3135 
2170 2275 
2353 2391 
2522 2525 
2629 2670 
2929 2933 
3022 3026 
3128 3141 
1439 1442 
2338 2343 
2574 2734 
3158 3184 
CSECT (I7A40 
3139 3148 
CSECT (I7A40 
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CSECT (I7A40 
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CSECT (I7A40 
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CSECT (I7A40 
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CSECT (I7A40 
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CSECT (I7A40 
2935 2936 
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LENGTH (6) 
LENGTH (4) 


LENGTH (2) 
LENGTH (2) 


LENGTH (6) 
LENGTH (6) 
LENGTH (2) 


LENGTH (2) 


LENGTH (4) 


LENGTH (1) 
LENGTH (6) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (4) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 


LENGTH (4) 
LENGTH (4) 
LENGTH (4) 








I7A40 --- 


DECLARED 
3003 
3089 
296 3 
1240 


2507 
2733 
2734 
2740 
2760 
1297 
1262 
2888 
1229 


1079 
1080 
1301 
1185 

992 

990 
2088 


2274 
2281 
2291 
2096 
2283 
2294 
2091 
2167 
2100 
2113 
2125 
3179 

62 


2531 
2637 
3057 
3049 
2629 


DISK WRITE TESTS 


NAME 

T7A17 
T7A54 
T7A89 
VRDCB 


VRID 
WB 
WB 1 
WB2 
WB3 
WDATA 
WKDCB 
WRBUF 
WRDCB 


WRITO 
WRIT1 
WRSID 
WSDCB 
XE 

XI 
XIO 


XIOCK 
XIOCO 
XIOCQ 
XIOCS 
XIOCV 
XITOCX 
XIODG 
XIOER 
XIO1 

XIO2 

XI08 

XSCAN 
XTRNL 


X7A06 
X7A07 
X7A 17 
X7A17A 
X7A71 


ATTRIBUTES 


ADDRESS. 
644 
ADDRESS. 
611 


Soen 
RESS. 
1 251 
3 303 
RESS. 
Z 
RESS 
2 27 
RESS 


NO 


RESS. 


N 


No N NO 
Phra SPW SPN Spe PSP SPOOL Pur RPA) le) bn ORDO 


1 142 
RESS. 
2 273 
RESS. 
1 146 
3 301 
4 OLUTE 
P OLUTE 
RESS 
1 12 
RESS. 
1 143 
OLUTE 
2 227 
OLUTE 
1 211 
RESS. 
1 138 
1 143 
RESS. 
2 
RESS. 


SONOS WOO SD aDoWnUOOUWIUD wa OONOWOWOUDWONOU awn 
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) 


DDRESS. 
88 


ADDRESS. 
2277 

ADDRESS. 
2284 


mM 


ADDRESS. 
1 1468 
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CROSS~REFERENCE LISTING 


AND REFERENCES 

HEX LOCATION(QOOO3ABA) IN 
HEX LOCATION(00003BBO) IN 
HEX LOCATION(00003AB6) IN 


HEX Boe pec eae Ok IN 
ao le 2514 2586 2588 


HEX LOCATION (00003070) IN 
HEX LOCATION (00003278) IN 
HEX LOCATION(0000327E) IN 
HEX LOCATION (00003292) IN 


genres LOCATION (000032E0) IN 


HEX LOCATION(00002B7C) IN 
HEX LOCATION(00002B46) IN 


HEX LOCATION(00003524) IN 
3018 3129 3130 3134 
HEX LOCATION (00002816) IN 
2585 2587 2588 2589 
3017 3018 3030 3031 
HEX VALUE (00000010) 
HEX VALUE (00000011) 

HEX LOCATION(00002B84) IN 
1337 1426 1430 2806 
HEX LOCATION(O0002AD6) IN 

HEX VALUE (00000024) 
2479 
HEX VALUE (00000022) 
2259 
HEX LOCATION (00002CC6) IN 
1395 1402 1409 1412 
HEX LOCATION(00002D9A) IN 


HEX LOCATION(O00002DAC) IN 
HEX LOCATION(00002DC2) IN 
HEX LOCATTON (00002DB0) 
HEX LOCATION(00002DCE) IN 
HEX LOCATION(00002CCC) IN 
HEX LOCATION(00002D38) IN 
HEX LOCATION (00002CE8) IN 
HEX LOCATION(00002D0E) IN 
HEX LOCATION (00002D24) IN 
HEX LOCATION(00003CC4) IN 

nag, yatog 42000990 


HEX Boo Eg eaa ob IN 
S 2933 2941 


702 

HEX LOCATION(000030CE) IN 
HEX LOCATION (000031Ca) IN 
HEX LOCATION(00003B8A) IN 
HEX LOCATION (00003B6A) IN 


HEX LOCATION(OO0O031AA) IN 
2621 
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CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
2608 2615 

CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT(I7A40 
3140 3149 

CSECT (I7A40 
2606 2607 

3039 


CSECT (I7A40 
CSECT (I7A40 


CSECT (17 
1415 14 
CSECT (I7A40 
CSECT (I7A40 


CSECT (I7A40 


CSECT (I7A40 
2952 (3049 


N CSECT (I7A40 


CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A4O 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 


734 766 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
CSECT (I7A40 
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LENGTH (4) 
LENGTH (4) 
LENGTH (4) 


LENGTH (2) 


) 

) 

) 

301 

) LENGTH (6) 

) LENGTH (6) 

) LENGTH (4) 

) LENGTH (4) 

) LENGTH (4) 

) LENGTH (2) 

) LENGTH (2) 
LENGTH (2) 

36s EENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 


LENGTH (4 
147 ie 


) LENGTH (2) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH (6) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH (6) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (4) 


13 

) LENGTH (6) 
) LENGTH (6) 
) LENGTH (6) 
) LENGTH (4) 
) LENGTH (4) 
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